# NOT RUN {
design <- declare_population(N = 100, u = rnorm(N)) +
declare_potential_outcomes(Y ~ Z + u) +
declare_estimand(ATE = mean(Y_Z_1 - Y_Z_0)) +
declare_sampling(n = 75) +
declare_assignment(m = 50) +
declare_reveal(Y, Z) +
declare_estimator(Y ~ Z, estimand = "ATE")
dat <- draw_data(design)
dat_no_sampling <- draw_data(design, end = 3)
draw_estimands(design)
draw_estimates(design)
# }
Run the code above in your browser using DataLab