Get the percentage of patients evaluated at each dose under investigation.

is_randomising(x, ...)

Arguments

x

Object of class selector

...

arguments passed to other methods

Value

a logical value

Examples

outcomes <- '1NNN 2NTN'
fit <- get_random_selector(prob_select = c(0.1, 0.6, 0.3)) %>%
  fit(outcomes)
fit %>% is_randomising()
#> [1] TRUE