# NOT RUN {
# }
# NOT RUN {
# in conjunction with DesignLibrary
library(DesignLibrary)
designs <- expand_design(multi_arm_designer, outcome_means = list(c(3,2,4), c(1,4,1)))
# with a custom designer function
designer <- function(N) {
pop <- declare_population(N = N, noise = rnorm(N))
pos <- declare_potential_outcomes(Y ~ 0.20 * Z + noise)
assgn <- declare_assignment(m = N / 2)
mand <- declare_estimand(ATE = mean(Y_Z_1 - Y_Z_0))
mator <- declare_estimator(Y ~ Z, estimand = mand)
pop + pos + assgn + mand + mator
}
# returns list of eight designs
designs <- expand_design(designer, N = seq(30, 100, 10))
# diagnose a list of designs created by expand_design or redesign
diagnosis <- diagnose_design(designs, sims = 50)
# returns a single design
large_design <- expand_design(designer, N = 200)
diagnose_large_design <- diagnose_design(large_design, sims = 50)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab