if (FALSE) {
# Generate coefficients
coefs <- genCoefs(R = 5, T = 30, d = 12, density = 0.1, eff_size = 2, seed = 123)
# Compute the true treatment effects:
te_results <- getTes(coefs)
# Overall average treatment effect on the treated:
print(te_results$att_true)
# Cohort-specific treatment effects:
print(te_results$actual_cohort_tes)
}
Run the code above in your browser using DataLab