Get the length of time that trials take to recruit all patients.
Arguments
- x
Object of type
simulations.- ...
arguments passed to other methods
Examples
true_prob_tox <- c(0.12, 0.27, 0.44, 0.53, 0.57)
sims <- get_three_plus_three(num_doses = 5) %>%
simulate_trials(num_sims = 50, true_prob_tox = true_prob_tox)
sims %>% trial_duration
#> [1] 10.404086 4.227281 13.100535 10.882804 4.525295 12.808892 11.208264
#> [8] 8.725439 13.476934 10.775757 5.518654 15.919463 20.428244 8.582684
#> [15] 7.685246 6.943945 13.752761 7.185711 23.452561 2.762147 18.506245
#> [22] 9.480204 13.364694 4.291953 9.414567 2.963298 8.521997 10.073196
#> [29] 2.698001 12.293870 14.355047 1.624640 7.708667 4.142992 6.450473
#> [36] 4.333914 10.247811 2.386275 12.035586 7.783271 7.198992 17.240859
#> [43] 12.682162 10.470924 4.360188 3.314582 13.396749 10.311636 12.229459
#> [50] 7.987451