Get the probabilities that each of the doses under investigation is recommended.
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 %>% prob_recommend
#> NoDose 1 2 3 4 5
#> 0.14 0.42 0.26 0.16 0.02 0.00