powered by
cpgram(ts, taper = 0.1, main = paste("Series: ", deparse(substitute(ts))), ci.col = "blue")
require(graphics) par(pty = "s", mfrow = c(1,2)) cpgram(lh) lh.ar <- ar(lh, order.max = 9) cpgram(lh.ar$resid, main = "AR(3) fit to lh") cpgram(ldeaths)
Run the code above in your browser using DataLab