Voir le code R
library(did)
# Estimation des ATT(g,t)
att_gt_res <- att_gt(
yname = "lemp", # variable de résultat
tname = "year", # variable de temps
idname = "countyreal", # identifiant des unités
gname = "first.treat", # année du 1er traitement (0 = jamais traité)
data = mpdta,
control_group = "nevertreated", # groupe de comparaison
est_method = "reg" # méthode d'estimation
)
summary(att_gt_res)#>
#> Call:
#> att_gt(yname = "lemp", tname = "year", idname = "countyreal",
#> gname = "first.treat", data = mpdta, control_group = "nevertreated",
#> est_method = "reg")
#>
#> Reference: Callaway, Brantly and Pedro H.C. Sant'Anna. "Difference-in-Differences with Multiple Time Periods." Journal of Econometrics, Vol. 225, No. 2, pp. 200-230, 2021. <https://doi.org/10.1016/j.jeconom.2020.12.001>, <https://arxiv.org/abs/1803.09015>
#>
#> Group-Time Average Treatment Effects:
#> Group Time ATT(g,t) Std. Error [95% Simult. Conf. Band]
#> 2004 2004 -0.0105 0.0240 -0.0762 0.0552
#> 2004 2005 -0.0704 0.0322 -0.1586 0.0177
#> 2004 2006 -0.1373 0.0391 -0.2441 -0.0304 *
#> 2004 2007 -0.1008 0.0358 -0.1989 -0.0028 *
#> 2006 2004 0.0065 0.0233 -0.0572 0.0702
#> 2006 2005 -0.0028 0.0195 -0.0561 0.0506
#> 2006 2006 -0.0046 0.0182 -0.0543 0.0451
#> 2006 2007 -0.0412 0.0204 -0.0971 0.0147
#> 2007 2004 0.0305 0.0146 -0.0094 0.0704
#> 2007 2005 -0.0027 0.0168 -0.0488 0.0433
#> 2007 2006 -0.0311 0.0191 -0.0832 0.0210
#> 2007 2007 -0.0261 0.0179 -0.0751 0.0230
#> ---
#> Signif. codes: `*' confidence band does not cover 0
#>
#> P-value for pre-test of parallel trends assumption: 0.16812
#> Control Group: Never Treated, Anticipation Periods: 0
#> Estimation Method: Outcome Regression