## Test the significance of a second order lag in a PAR model for the Real GNP in Germany.
## Including seasonal intercepts.
data("gergnp")
lgergnp <- log(gergnp, base=exp(1))
detcomp <- list(regular=c(0,0,0), seasonal=c(1,0), regvar=0)
out <- Fnextp.test(wts=lgergnp, detcomp=detcomp, p=1, type="PAR")
Run the code above in your browser using DataLab