# \donttest{
set.seed(123)
years <- 2000:2019
sectors <- LETTERS[1:5]
direct <- data.frame(Year = years)
production <- data.frame(Year = years)
for (s in sectors) {
direct[[s]] <- 100 + cumsum(rnorm(20, 2, 1))
production[[s]] <- 102 + cumsum(rnorm(20, 2, 1))
}
if (requireNamespace("plm", quietly = TRUE)) {
results <- run_full_analysis(
direct, production,
run_bayesian = FALSE,
run_cv = FALSE
)
print(results$comparison)
}
# }
Run the code above in your browser using DataLab