Observed efficacy rate at each dose.

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.

Usage

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