# NOT RUN {
design <-
declare_population(data = sleep) +
declare_estimand(mean_outcome = mean(extra)) +
declare_sampling(n = 10) +
declare_estimator(extra ~ 1, estimand = "mean_outcome",
term = '(Intercept)', model = lm_robust)
diagnosands <- declare_diagnosands(
median_bias = median(estimate - estimand), keep_defaults = FALSE)
design <- set_diagnosands(design, diagnosands)
# }
# NOT RUN {
diagnose_design(design)
simulations_df <- simulate_design(design)
simulations_df <- set_diagnosands(simulations_df, design)
diagnose_design(simulations_df)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab