skeleton <- c(0.05, 0.1, 0.25, 0.4, 0.6)
target <- 0.25
model1 <- get_dfcrm_tite(skeleton = skeleton, target = target)
outcomes <- data.frame(
dose = c(1, 1, 2, 2, 3, 3),
tox = c(0, 0, 0, 0, 1, 0),
weight = c(1, 1, 1, 0.9, 1, 0.5),
cohort = c(1, 2, 3, 4, 5, 6)
)
fit <- model1 %>% fit(outcomes)
Run the code above in your browser using DataLab