models <- DoseFinding::Mods(linear = NULL,
linlog = NULL,
emax = c(0.5, 1.2),
exponential = 2,
doses = c(0, 0.5, 2,4, 8),
maxEff = 6)
dose_levels <- c(0, 0.5, 2,4, 8)
sd <- 12
n_patients <- c(40, 60, 60, 60, 60)
sim_data <- simulateData(n_patients = n_patients,
dose_levels = dose_levels,
sd = sd,
mods = models,
n_sim = 100)
head(sim_data)
Run the code above in your browser using DataLab