df_visit <- sim_test_data_study(
n_pat = 100,
n_sites = 5,
ratio_out = 0.4,
factor_event_rate = 0.6
) %>%
# internal functions require internal column names
dplyr::rename(
n_ae = n_event,
site_number = site_id,
patnum = patient_id
)
df_site <- site_aggr(df_visit)
df_prep <- simaerep:::prep_for_sim(df_site, df_visit)
df_prep
Run the code above in your browser using DataLab