df_visit <- sim_test_data_study(
n_pat = 100,
n_sites = 5,
frac_site_with_ur = 0.4,
ur_rate = 0.2
)
df_visit$study_id <- "A"
df_site <- site_aggr(df_visit)
df_prep <- prep_for_sim(df_site, df_visit)
df_sim <- sim_after_prep(df_prep)
df_sim
Run the code above in your browser using DataLab