#Fit a subset model to Series A and verify the loglikelihood
out<-FitAR(SeriesA, c(1,2,7))
out
#either using print.default(out) to see the components in out
#or applying LoglikelihoodAR () by first obtaining the phi parameters as out$phiHat.
#
LoglikelihoodAR(out$phiHat, SeriesA, MeanValue=mean(SeriesA))
Run the code above in your browser using DataLab