Prepare data for simulation.

Internal function called by sim_sites. Collect AEs per patient at visit_med75 for site and study as a vector of integers.

Usage

prep_for_sim(df_site, df_visit)

Arguments

df_site

dataframe created by site_aggr

df_visit

dataframe, created by sim_sites

Value

dataframe

See also

sim_sites, sim_after_prep

Examples

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
#> # A tibble: 5 × 7
#>   study_id site_number n_pat n_pat_with_med75 visit_med75 n_ae_site  n_ae_study
#>   <chr>    <chr>       <int>            <dbl>       <int> <list>     <list>    
#> 1 A        S0001          20               18          15 <dbl [18]> <dbl [71]>
#> 2 A        S0002          20               17          15 <dbl [17]> <dbl [72]>
#> 3 A        S0003          20               18          16 <dbl [18]> <dbl [63]>
#> 4 A        S0004          20               19          14 <dbl [19]> <dbl [72]>
#> 5 A        S0005          20               17          15 <dbl [17]> <dbl [72]>