Time Series - problème de dates

1 pièce(s) jointe(s)

Bonjour,

Je dispose d'un fichier .csv 1922*16 (16 colonnes : dates + 15 actions, 1922 lignes : titre + données) que j'importe dans R par la commande suivante :

Code:

data <- read.csv(file = "Data_R.csv", head = T, dec = ",", sep = ";")

Je n'arrive pas à faire de mes 15 séries des séries temporelles dont le temps correspond à la colonne 1 (les dates au format 2002-07-28).

Je joins le fichier .csv compressé.

Merci de votre aide ! :ccool:

Bonjour et bienvenue,

Qu'as-tu testé pour en faire des séries temporelles ?

S'il s'agit de transformer tes données en objet ts, le problème peut venir du fait que les intervalles doivent être réguliers et que dans le cas présent tu n'as pas de donnée les week-ends (ce qui est bien normal vu le genre de données ;)).

Je viens de réussir finalement, pour info voilà mon code :

Code:

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")

Sauriez-vous comment réduire toutes ces lignes en deux ou trois ? J'essaie en vain, voilà l'ébauche de ma démarche :

Code:

1
2
3
noms <- c("sp500", "cac40", "axap", "axany", "ftp", "ftny", "alp", "alny", "sap", "sany", "top", "tony", "vep", "veny", "useur")
 
for (i in 1:15){noms[i] <- as.matrix(noms[i] <- zoo(Data[, i+1], dates))}

Bon, ça ne marche pas... mais je ne comprends pas mon erreur. ;)