Utilisation de :fanchart

Bonjour,

J'utilise le package pour l'étude des series chronologiques multivariées : vars
voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

# Mise en mémoire des données mort = ts(scan("R/DataTS/Chap2/cmort.dat"),start=1970, frequency=52) temp = ts(scan("R/DataTS/Chap2/temp.dat"),start=1970, frequency=52) part = ts(scan("R/DataTS/Chap2/part.dat"),start=1970, frequency=52)   library(vars) x = cbind(mort, temp, part) summary(fit <- VAR(x, p=2, type="both"))   # Previsions fit.pr <- predict(fit, n.ahead = 24, ci = 0.95) fanchart(fit.pr)

---

Tout fonctionne bien sauf que lorsque j'affiche les graphiques je voudrais n'avoir que la moitié de l'historique (pour mieux voir les prévisions)

Est-ce que quelqu'un à trouvé une solution à ce probleme?

Cdt