Get the probabilities that each of the doses under investigation is recommended.

prob_recommend(x, ...)

Arguments

x

Object of type simulations.

...

arguments passed to other methods

Value

vector of probabilities

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.16   0.44   0.22   0.16   0.02   0.00