# \donttest{
dose.vec = c(0, 5, 10, 20, 30, 40)
models.full = Mods(doses = dose.vec, linear = NULL,
sigEmax = rbind(c(9, 2), c(6, 3)),
emax = 0.8,
quadratic = -0.02,
placEff = 0, maxEff = 2)
## Now we can calculate the sample sizes needed in order to achieve a certain power
sampSizeMCTGen("negative binomial", "log", modelPar = 0.1, upperN = 50, Ntype = "arm",
altModels = models.full, alpha = 0.05, sumFct = "min", power = 0.8)
# }
Run the code above in your browser using DataLab