# \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))
}
panel <- prepare_panel_data(direct, production)
matrices <- prepare_log_matrices(direct, production)
result <- run_cca_var_analysis(
direct, production, panel,
cca_components = 2
)
# }
Run the code above in your browser using DataLab