# 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)
draw_data(design, data = dat, start = 2)
get_estimates(design, data = dat)
draw_assignment(design, data = dat)
draw_sample(design, data = dat)
# }
Run the code above in your browser using DataCamp Workspace