if (FALSE) {
n = 1000
ar = 0.9
mean = 1
sd = 1
set.seed(1234)
x = c(arima.sim(n = n, list(ar = ar), sd = sd) + mean)
nse.cos(x = x, q = 12, lag.prewhite = 0)
nse.cos(x = x, q = 12, lag.prewhite = NULL)
}
Run the code above in your browser using DataLab