Get the percentage of patients evaluated at each dose under investigation.
is_randomising(x, ...)
Object of class selector
arguments passed to other methods
a logical value
outcomes <- '1NNN 2NTN'
fit <- get_random_selector(prob_select = c(0.1, 0.6, 0.3)) %>%
fit(outcomes)
fit %>% is_randomising()
#> [1] TRUE