data(biom)
fit <- fitDRModel(resp ~ dose, biom, "logistic")
## MED2 estimates MED as smallest dose where the dose-effect
## curve is larger than clinRel and the lower bound of the
## 1-2*gamma confidence interval for the mean is larger than 0
## select gamma 0.05, 0.1 and 0.5
## (for gamma=0.5 CI is irrelevant for definition of MED estimate)
MED(fit, "MED2", clinRel = 0.2, gamma = c(0.05, 0.1, 0.5))
## option "old" uses the definition given in Bretz et al. (2005)
## to calculate the MED based on the full dose-response function
## this is included for back-compatibility with the old MCPMod function.
## This option is not available if covariates are used
MED(fit, "MED2", clinRel = 0.2, gamma = c(0.05, 0.1, 0.5), old = TRUE)
Run the code above in your browser using DataLab