# \donttest{
if (requireNamespace("plm", quietly = TRUE)) {
set.seed(123)
panel <- data.frame(
year = rep(2000:2009, 5),
sector = rep(LETTERS[1:5], each = 10),
log_direct = rnorm(50, 5, 0.5),
log_production = rnorm(50, 5, 0.5)
)
panel$log_production <- panel$log_direct * 0.95 + rnorm(50, 0, 0.1)
mundlak_fit <- fit_mundlak_cre(panel)
test_result <- test_mundlak_specification(mundlak_fit)
print(test_result)
}
# }
Run the code above in your browser using DataLab