# NOT RUN {
# Generate a mediation analysis design using default arguments:
mediation_1 <- mediation_analysis_designer()
draw_estimands(mediation_1)
# }
# NOT RUN {
diagnose_design(mediation_1, sims = 1000)
# }
# NOT RUN {
# A design with a violation of sequential ignorability and heterogeneous effects:
mediation_2 <- mediation_analysis_designer(a = 1, rho = .5, c = 1, d = .75)
draw_estimands(mediation_2)
# }
# NOT RUN {
diagnose_design(mediation_2, sims = 1000)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace