# Calculate the paths for the first cohort of 3 in Thall et al 2014 example
dat <- efftox_parameters_demo()
if (FALSE) {
dtps1 <- efftox_dtps_to_dataframe(dat = dat, cohort_sizes = c(3),
next_dose = 1)
}
# To calculate future paths in a partially-observed trial
dat <- efftox_parameters_demo()
dat$doses = array(c(1,1,1))
dat$eff = array(c(0,0,0))
dat$tox = array(c(1,1,1))
dat$num_patients = 3
if (FALSE) {
dtps2 <- efftox_dtps_to_dataframe(dat = dat, cohort_sizes = c(3),
next_dose = 1)
}
Run the code above in your browser using DataLab