## see also the examples for fitPM()
ts1 <- window(dataFranses1996[ , "CanadaUnemployment"],
start = c(1960, 1), end = c(1987, 4))
pclspiar(ts1, 4, p = 1, sintercept = TRUE)
pclspiar(ts1, 4, p = 2, sintercept = TRUE)
Run the code above in your browser using DataLab