ts <- rnorm(100)
acf_est <- acf(ts, plot = FALSE)$acf[-21]
pacf_est <- pacf(ts, plot = FALSE)$acf[-21]
ahat <- list(acf=c() ,pacf=c())
ahat$acf <- acf(ts, lag.max = 19, plot = FALSE)$acf[,,1]
ahat$pacf <- pacf(ts, lag.max = 19, plot = FALSE)$acf[,,1]
bs <- 10
a1 <- 0.025
a2 <- 0.975
boot <- 100
lgmx <- 20
VMBB(acf_est, pacf_est, ahat, ts, bs, a1, a2, boot, lgmx)
Run the code above in your browser using DataLab