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