HoltsWinters法 ff2<-ts(ff[!is.na(ff)],frequency=12,start=c(2006,11)) hol<-HoltsWinter(ff2) plot(c(ff2,predict(hol,6))) points(c(ff2),col=2)