# NOT RUN {
design <- two_by_two_designer(outcome_means = c(0,0,0,1))
# A design biased for the specified estimands:
design <- two_by_two_designer(outcome_means = c(0,0,0,1), prob_A = .8, prob_B = .2)
# }
# NOT RUN {
diagnose_design(design)
# }
# NOT RUN {
# A design with estimands that "match" the assignment:
design <- two_by_two_designer(outcome_means = c(0,0,0,1),
prob_A = .8, prob_B = .2,
weight_A = .8, weight_B = .2)
# }
# NOT RUN {
diagnose_design(design)
# }
# NOT RUN {
# Compare power with and without interactions, given same average effects in each arm
designs <- redesign(two_by_two_designer(),
outcome_means = list(c(0,0,0,1), c(0,.5,.5,1)))
# }
# NOT RUN {
diagnose_design(designs)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace