set.seed(99)
dat <- sim_binary_panel(n = 600, nperiods = 8, prop_treated = 0.5)
res <- nonlinear_attgt(dat, "y", "period", "id", "g",
outcome_model = "logit")
pt <- nonlinear_pretest(res)
print(pt)
Run the code above in your browser using DataLab