Erratum - Chapitre 2
Le package its a été supprimé du CRAN. Il est possible de remplacer les anciennes commandes par les commandes
suivantes :
- priceIts par get.hist.quote (package tseries)
- its par zoo (package zoo)
- rangeIts par window (package timeSeries)
# Section 2.2. importer les données en utilisant tseries
require("tseries")
deb = "2006-01-01"; fin = "2009-06-30"
instru = c("^FCHI", "GLE.PA", "BN.PA", "OR.PA")
cac40 <- get.hist.quote(instrument = instru[1], start=deb, end=fin, quote="Close")
socgen <- get.hist.quote(instrument = instru[2], start=deb, end=fin, quote="Close")
BN.PA <- get.hist.quote(instrument = instru[3], start=deb, end=fin, quote="Close")
OR.PA <- get.hist.quote(instrument = instru[4], start=deb, end=fin, quote="Close")
csdl <- cbind(cac40, socgen, BN.PA, OR.PA)
# Télécharger ensuite le package timeSeries
require("timeSeries")
aa = returns(csdl, percentage = TRUE)
r.csdl = aa[complete.cases(aa) == TRUE,]
cacsoc=union(cac40,socgen)
cs=intersect(cac40,socgen)
deb2 = deb = "2008-02-01"
# la fonction rangeits ne fonctionne plus.
#wxx = rangeIts(cac40, start=deb2, end=fin)
# il faudra à présent utiliser la commande suivante :
wxx <- window(cac40, start=deb2, end=fin)
# Section 2.4 (page 36, édition 2)
# (date.manq = csdl@dates[i.manq][1:3])
(date.manq = index(csdl)[i.manq][1:3])
# paragraphe "Repérage d une valeur exceptionnelle"
# remplacer les commandes suivantes :
# i0 = which(essil@.Data > 60)
i0 = which(essil > 60)
# essil@dates[i0]
index(essil)[i0]
# essil@.Data[i0] = 50
essil[i0] <- 50
essil[(i0-2):(i0+2),]
# essil@.Data[i0] = NA
essil[i0] <- NA
# z = zoo(essil@.Data,essil@dates)
# z.corr = na.approx(z)
z.corr <- na.approx(essil)
z.corr[(i0-2):(i0+2),]
