# NOT RUN {
# To make a design using default argument (missing completely at random):
two_arm_attrition_design <- two_arm_attrition_designer()
# }
# NOT RUN {
diagnose_design(two_arm_attrition_design)
# }
# NOT RUN {
# Attrition can produce bias even for unconditional ATE even when not
# associated with treatment
# }
# NOT RUN {
diagnose_design(two_arm_attrition_designer(b_R = 0, rho = .3))
# }
# NOT RUN {
# Here the linear estimate using R=1 data is unbiased for
# "ATE on Y (Given R)" with b_R = 0 but not when b_R = 1
# }
# NOT RUN {
diagnose_design(redesign(two_arm_attrition_design, b_R = 0:1, rho = .2))
# }
Run the code above in your browser using DataCamp Workspace