spec.ar(ar.list, n.freq=<<see below>>, frequency=<<see below>>, plot=F)
ll.ar <- ar(log(lynx)) # Fit an AR model to the log of the lynx data spec <- spec.pgram(log(lynx)) # and superimpose the raw periodogram for this ll.spec.ar <- spec.ar(ll.ar, plot=F) # data and its autoregressive spectrum. spec.plot(ll.spec.ar, add=T)