if (requireNamespace("plm", quietly = TRUE) && requireNamespace("lme4", quietly = TRUE)) {
library(lme4)
data("Gasoline", package = "plm")
# Fit a random effects model using lme4
mixed_model <- lmer(lgaspcar ~ lincomep + lrpmg + lcarpcap + (1 | country),
data = Gasoline, REML = FALSE)
# List fixed effects
fixed_effects <- list_fixed_effects(mixed_model)
print(fixed_effects)
}
Run the code above in your browser using DataLab