## Analyse frequency pi, including a first order lag and but not a linear trend.
data(AirPassengers)
AirP <- list(vari=AirPassengers, s=12, t0=c(1949, 1), N=length(AirPassengers))
CH.test(label=AirP, frec=c(0,0,0,0,0,1), f0=1, DetTr=FALSE, showcat=TRUE)
Run the code above in your browser using DataLab