## Analyse the stability of the first month.
data(AirPassengers)
AirP <- list(vari=AirPassengers, s=12, t0=c(1949, 1), N=length(AirPassengers))
CHseas.test(label=AirP, lmax=3, seas=1, showcat=TRUE)
Run the code above in your browser using DataLab