## CH test
data(AirPassengers)
## Test for stationary cycles at all seasonal frequencies,
## including a first order lag and but not a linear trend.
ch.out1 <- CH.rectest(wts=AirPassengers, type="backw", nsub=48,
frec=c(1,1,1,1,1,1), f0=1, DetTr=FALSE)
show(ch.out1)
plot(ch.out1)
Run the code above in your browser using DataLab