# NOT RUN {
# Simulate bubble processes
dta <- data.frame("dg1" = sim_dgp1(n = 100), "dgp2" = sim_dgp2(n = 100))
# Default minimum window
wb <- wb_cv(dta)
# Change the minimum window and the number of bootstraps
wb <- wb_cv(dta, nboot = 1500, minw = 20)
# }
Run the code above in your browser using DataLab