# Analyze the binary migraine data from the DoseFinding package.
data(migraine)
models = Mods(linear = NULL, emax = 1, quadratic = c(-0.004),
doses = migraine$dose)
powMCTGen(migraine$ntrt, "binomial", "logit",
Ntype = "actual", altModels = models)
sampSizeMCTGen("binomial", "logit", altModels = models, power = 0.8,
Ntype = "arm", upperN = 30, verbose = TRUE)
# Now analyze using binomial weights
PFrate <- migraine$painfree/migraine$ntrt
migraine$pfrat = migraine$painfree / migraine$ntrt
MCPModGen("binomial","logit",returnS = TRUE, w = "ntrt", dose = "dose",
resp = "pfrat", data = migraine, models = models, selModel = "aveAIC",
Delta = 0.2)
Run the code above in your browser using DataLab