X-axe de glissement/corrélation de fenêtre

Question

J'essaye d'effectuer la corrélation de glissement avec la fenêtre = 11years. Voici mon code:

library(gtools) 
var1<-rnorm(52,0.010,0.05) 
var2<-rnorm(52,0.015,0.01) 
dat<-merge(var1,var2) 
dat$year<-seq(1961,2012,1) 

rc<-running(dat$x,dat$y,fun=cor, width=11) 

Je veux tracer la sortie comme un simple tracé de ligne comme celui-ci:

plot(rc,type="l") 

Mon problème est l'axe x. Comment puis-je faire correspondre la valeur de corrélation avec les années? Quelque chose comme ajouter une valeur de remplissage "0"?

Toutes les suggestions sur la façon dont je peux le faire correctement dans R.

Je vous remercie de toute aide. Merci beaucoup d'avance.

Answer 1

rc <- running(var1, var2, fun = cor, width = 11) 
plot(1971:2012, rc, type="l")