#fit subset AR and plot diagnostic check
data(SeriesA)
out<-FitAR(SeriesA, c(1,2,7), ARModel="ARp")
RacfPlot(out)
#note that plot produces LBQPlot and RacfPlot
plot(out)
#check squared residuals
RacfPlot(out, SquaredQ=TRUE)
Run the code above in your browser using DataLab