simulate single scenario

internal function called by simulate_scenarios()

Usage

sim_scenario(n_ae_site, n_ae_study, frac_pat_with_ur, ur_rate)

Arguments

n_ae_site

integer vector

n_ae_study

integer vector

frac_pat_with_ur

double

ur_rate

double

Value

list

Examples

sim_scenario(c(5,5,5,5), c(8,8,8,8), 0.2, 0.5)
#> $n_ae_site
#> [1] 2.5 2.5 5.0 5.0
#> 
#> $n_ae_study
#> [1] 8 8 8 8
#> 
sim_scenario(c(5,5,5,5), c(8,8,8,8), 0.75, 0.5)
#> $n_ae_site
#> [1] 2.5 2.5 2.5 2.5
#> 
#> $n_ae_study
#> [1] 4 4 8 8
#> 
sim_scenario(c(5,5,5,5), c(8,8,8,8), 1, 0.5)
#> $n_ae_site
#> [1] 2.5 2.5 2.5 2.5
#> 
#> $n_ae_study
#> [1] 4 4 4 4
#> 
sim_scenario(c(5,5,5,5), c(8,8,8,8), 1, 1)
#> $n_ae_site
#> [1] 0 0 0 0
#> 
#> $n_ae_study
#> [1] 0 0 0 0
#> 
sim_scenario(c(5,5,5,5), c(8,8,8,8), 0, 0.5)
#> $n_ae_site
#> [1] 5 5 5 5
#> 
#> $n_ae_study
#> [1] 8 8 8 8
#> 
sim_scenario(c(5,5,5,5), c(8,8,8,8), 2, 0.5)
#> $n_ae_site
#> [1] 2.5 2.5 2.5 2.5
#> 
#> $n_ae_study
#> [1] 4 4 4 4
#>