# NOT RUN {
set.seed(1)
x <- rpar(10000, 0.5, 2, 1)
library(tseries)
adf.test(x) # Seems to contain a unit root, as expected
estimate.par(x) # Estimate parameters using lagged variances
fit.par(x) # Maximum likelihood estimate
# }
Run the code above in your browser using DataLab