Get the empirical or observed efficacy rate seen at each dose under investigation. This is simply the number of efficacies divded by the number of patients evaluated.
empiric_eff_rate(x, ...)
Object of class selector
arguments passed to other methods
a numerical vector
prob_select = c(0.1, 0.3, 0.5, 0.07, 0.03)
model <- get_random_selector(prob_select = prob_select,
supports_efficacy = TRUE)
x <- model %>% fit('1NTN 2EN 5BB')
empiric_tox_rate(x)
#> [1] 0.3333333 0.0000000 NaN NaN 1.0000000