# \donttest{
if (requireNamespace("plm", quietly = TRUE)) {
set.seed(123)
panel <- data.frame(
year = rep(2000:2019, 5),
sector = rep(LETTERS[1:5], each = 20),
log_direct = rnorm(100, 5, 0.5),
log_production = rnorm(100, 5, 0.5)
)
granger_results <- panel_granger_test(panel)
print(granger_results)
}
# }
Run the code above in your browser using DataLab