p = predict(hw,200) par(mfrow=c(1,1)) ts.plot(sspot,p,col=c("black","red"))