df_visit <- sim_test_data_study(
n_pat = 100,
n_sites = 5,
ratio_out = 0.4,
factor_event_rate = - 0.6
) %>%
dplyr::rename(
site_number = site_id,
patnum = patient_id,
n_ae = n_event
)
df_sim <- simaerep:::sim_inframe(df_visit)
Run the code above in your browser using DataLab