## HEGY test with constant, trend and seasonal dummies.
data(AirPassengers)
lairp <- log(AirPassengers)
hegy.out1 <- HEGY.test(wts=lairp, itsd=c(1,1,c(1:11)),
regvar=0, selectlags=list(mode="bic", Pmax=12))
hegy.out1
hegy.out2 <- HEGY.test(wts=lairp, itsd=c(1,1,c(1:11)),
regvar=0, selectlags=list(mode="signf", Pmax=NULL))
hegy.out2
Run the code above in your browser using DataLab