Closed erblast closed 2 years ago
df_visit <- sim_test_data_study( n_pat = 1000, n_sites = 1, frac_site_with_ur = 0.05, ur_rate = 0.4, ae_per_visit_mean = 0.5 ) df_visit$study_id <- "A" df_site <- site_aggr(df_visit) df_sim_sites <- sim_sites(df_site, df_visit, r = 1000) eval_sites(df_sim_sites)
better to return NA
better to return NA