if (FALSE) {
PM.results <- PanelMatch(panel.data = dem.sub.panel, lag = 4,
refinement.method = "ps.match",
match.missing = TRUE,
covs.formula = ~ tradewb,
size.match = 5, qoi = "att",
lead = 0:4,
forbid.treatment.reversal = FALSE)
result <- compare_treated_observations(PM.results, dem.sub.panel,
covariates = c("tradewb", "y"))
str(result)
}
Run the code above in your browser using DataLab