doses <- c(0,10,25,50,100,150)
fmodels <- Mods(linear = NULL, emax = 25,
logistic = c(50, 10.88111), exponential= 85,
betaMod=rbind(c(0.33,2.31),c(1.39,1.39)),
doses = doses, addArgs=list(scal = 200),
placEff = 0, maxEff = 0.4)
sigma <- 1
n <- rep(62, 6)*2
model <- "quadratic"
pObj <- planMod(model, fmodels, n, sigma, doses=doses,
simulation = TRUE,
alpha = 0.025, nSim = 200,
p = 0.5, pLB = 0.25, pUB = 0.75)
print(pObj)
summary(pObj, p = 0.5, Delta = 0.3)
plot(pObj)
plot(pObj, type = "TD", Delta=0.3, direction = "increasing")
plot(pObj, type = "ED", p = 0.5)
Run the code above in your browser using DataLab