Get the number of efficacies seen in a dose-finding trial.
num_eff(x, ...)Object of type selector.
Extra args are passed onwards.
integer
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')
num_eff(x)
#> [1] 3