df_visit <- sim_test_data_study(
n_pat = 120,
n_sites = 6,
ratio_out = 0.4,
factor_event_rate = - 0.6
) %>%
dplyr::rename(
site_number = site_id,
patnum = patient_id,
n_ae = n_event
)
df_site <- site_aggr(df_visit)
simaerep:::plot_visit_med75(df_visit, df_site, study_id_str = "A", n_site = 6)
Run the code above in your browser using DataLab