df_visit <- sim_test_data_study(n_pat = 120, n_sites = 6,
frac_site_with_ur = 0.4, ur_rate = 0.6)
df_visit$study_id <- "A"
df_site <- site_aggr(df_visit)
plot_visit_med75(df_visit, df_site, study_id_str = "A", n_site = 6)
Run the code above in your browser using DataLab