1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Data <- read.csv(file = "Data_R.csv", head = TRUE, sep = ";")
dates <- as.Date(Data[,1])
sp500 <- as.matrix(sp500 <- zoo(Data[, 2], dates))
cac40 <- as.matrix(cac40 <- zoo(Data[, 3], dates))
axap <- as.matrix(axap <- zoo(Data[, 4], dates))
axany <- as.matrix(axany <- zoo(Data[, 5], dates))
ftp <- as.matrix(ftp <- zoo(Data[, 6], dates))
ftny <- as.matrix(ftny <- zoo(Data[, 7], dates))
alp <- as.matrix(alp <- zoo(Data[, 8], dates))
alny <- as.matrix(alny <- zoo(Data[, 9], dates))
sap <- as.matrix(sap <- zoo(Data[, 10], dates))
sany <- as.matrix(sany <- zoo(Data[, 11], dates))
top <- as.matrix(top <- zoo(Data[, 12], dates))
tony <- as.matrix(tony <- zoo(Data[, 13], dates))
vep <- as.matrix(vep <- zoo(Data[, 14], dates))
veny <- as.matrix(veny <- zoo(Data[, 15], dates))
useur <- as.matrix(useur <- zoo(Data[, 16], dates))
donnees <- as.data.frame(cbind(sp500, cac40, axap, axany, ftp, ftny, alp, alny, sap, sany, top, tony, vep, veny, useur))
colnames(donnees) <- c("sp500", "cac40", "axap", "axany", "ftp", "ftny", "alp", "alny", "sap", "sany", "top", "tony", "vep", "veny", "useur") |
Partager