# Plot forecasts through vecm by using calendar years

I'm using the library vars in R to plot fanchart and predictions through the vector of error correction model. I have used this code:

b<-ts(KtF,start=1921,end=2009,frequency=1)
vecmfemales <- ca.jo(b,type="trace",spec="transitory")
vecm.level <- vec2var(vecmfemales, r = 3)