## 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.test(wts=AirPassengers, frec=c(1,1,1,1,1,1), f0=1, DetTr=FALSE)
ch.out1
## Test for stationary seasonal cycles at frequencies +i and -i,
## including a first order lag and but not a linear trend.
ch.out2 <- CH.test(wts=AirPassengers, frec=c(0,0,0,0,0,1), f0=1, DetTr=FALSE)
ch.out2
Run the code above in your browser using DataLab