dose_levels <- c(0, 0.5, 2, 4, 8)
mods <- DoseFinding::Mods(
linear = NULL,
emax = c(0.5, 1.2),
exponential = 2,
doses = dose_levels,
maxEff = 6)
cov_posterior <- diag(c(2.8, 3, 2.5, 3.5, 4)^2)
contr_mat <- getContr(
mods = mods,
dose_levels = dose_levels,
cov_posterior = cov_posterior)
Run the code above in your browser using DataLab