# NOT RUN {
set.seed(123)
x <- arima.sim(model=list(ar=0.7), n=100)
v1 <- predictiveDFT(x) #default
v2 <- predictiveDFT(x,ar=c(0.7)) #predictive DFT using AR(1) model with coefficient: 0.7.
v3 <- predictiveDFT(x,taper=TRUE) #Using tapered time series to fit the best AR model.
v4 <- predictiveDFT(x, method="ols") #Using ols method to fit the best AR model.
# }
Run the code above in your browser using DataLab