estimates <- EventStudy(estimator = "OLS", data = example_data, outcomevar = "y_base",
policyvar = "z", idvar = "id", timevar = "t",
controls = "x_r", FE = TRUE, TFE = TRUE,
post = 3, pre = 2, overidpre = 4, overidpost = 5,
normalize = - 3, cluster = TRUE, anticipation_effects_normalization = TRUE)
TestLinear(
estimates,
test = "z_fd_lag1 = z_fd",
test_name = "Hypothesis Test",
pretrends = TRUE,
leveling_off = TRUE
)
Run the code above in your browser using DataLab