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, ...)

Arguments

x

Object of class selector

...

arguments passed to other methods

Value

a numerical vector

Examples

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