Get the probabilities that each of the doses under investigation is recommended.
prob_recommend(x, ...)Object of type simulations.
arguments passed to other methods
vector of probabilities
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.22 0.40 0.34 0.04 0.00 0.00