# NOT RUN {
# Simulate bubble processes
set.seed(4441)
dta <- data.frame(
"psy1" = sim_psy1(100),
"psy2" = sim_psy2(100),
"evans" = sim_evans(100),
"div" = sim_div(100),
"blan" = sim_blan(100)
)
# Panel critical vales should have the same lag length with the estimation
sb <- sb_cv(dta, lag = 1)
dta %>%
radf(lag = 1) %>%
summary(cv = sb)
dta %>%
radf(lag = 1) %>%
autoplot(cv = sb)
# Simulate distribution
sb_dist(dta, lag = 1)
# }
Run the code above in your browser using DataLab