Estimation d’une équation en données
de panel
Logiciel : R
1. Chargement des bibliothèques :
library(plm)
2. Lecture et déclaration en panel :
data <- [Link]("donnees_panel.csv")
pdata <- [Link](data, index = c("id", "temps"))
3. Effet fixe :
model_fe <- plm(y ~ x1 + x2, data = pdata, model = "within")
summary(model_fe)
4. Effet aléatoire :
model_re <- plm(y ~ x1 + x2, data = pdata, model = "random")
summary(model_re)
5. Test de Hausman :
phtest(model_fe, model_re)