# NOT RUN {
N <- 10000
n <- 100
T <- 1.0
theta <- 0.5
beta_vol <- 0.125
kappa <- 3
alpha <- -0.2
beta_pwr <- -1.0
vol <- exponentiatedOrnsteinUhlenbeck(N, n, T, theta, beta_vol)
bss_simulation <- gammaKernelBSS(N, n, T, kappa, alpha, beta_pwr, sigma = vol)
y <- bss_simulation$bss
powerKernelBSSFit(y, n, num_lags = 10)
# }
Run the code above in your browser using DataLab