emax(dose, e0, eMax, ed50)
emaxGrad(dose, eMax, ed50, ...)
sigEmax(dose, e0, eMax, ed50, h)
sigEmaxGrad(dose, eMax, ed50, h, ...)
exponential(dose, e0, e1, delta)
exponentialGrad(dose, e1, delta, ...)
quadratic(dose, e0, b1, b2)
quadraticGrad(dose, ...)
betaMod(dose, e0, eMax, delta1, delta2, scal)
betaModGrad(dose, eMax, delta1, delta2, scal, ...)
linear(dose, e0, delta)
linearGrad(dose, ...)
linlog(dose, e0, delta, off = 1)
linlogGrad(dose, off, ...)
logistic(dose, e0, eMax, ed50, delta)
logisticGrad(dose, eMax, ed50, delta, ...)
quadratic(dose, e0=0, b1=1, b2=3)
will not throw an error
(although the gradient of the quadratic model is independent of e0,
b1 and b2).scal
(a reasonable
value is often 1.2*(maximum dose)).
The linear in log-dose model is intended to capture concave
shapes. The parameter off
is not estimated in the code
but set to a pre-specified value.
The logistic model is intended to capture general monotone,
sigmoid dose-response relationships.fitDRModel
, gFitDRModel
## some emax example shapes
emaxModList <- list(emax = c(0.02,0.1,0.5,1))
plotModels(emaxModList, c(0,1), base = 0, maxEff = 1)
## example for gradient
emaxGrad(dose = (0:4)/4, eMax = 1, ed50 = 0.5)
## some sigmoid emax example shapes
sigEmaxModList <- list(sigEmax = rbind(c(0.5,1), c(0.5,8), c(0.2,1),
c(0.2,8)))
plotModels(sigEmaxModList, c(0,1), base = 0, maxEff = 1)
sigEmaxGrad(dose = (0:4)/4, eMax = 1, ed50 = 0.5, h = 8)
## some exponential example shapes
expoModList <- list(exponential = c(0.1,0.25,0.5,2))
plotModels(expoModList, c(0,1), base = 0, maxEff = 1)
exponentialGrad(dose = (0:4)/4, e1 = 1, delta = 2)
## some beta model example shapes
betaModList <- list(betaMod = rbind(c(1,1), c(1.5,0.75), c(0.8,2.5),
c(0.4,0.9)))
plotModels(betaModList, c(0,1), base = 0, maxEff = 1, scal = 1.2)
betaModGrad(dose = (0:4)/4, eMax = 1, delta1 = 1, delta2 = 1, scal = 5)
## some logistic model example shapes
logistModList <- list(logistic = rbind(c(0.5,0.05), c(0.5,0.15),
c(0.2,0.05), c(0.2,0.15)))
plotModels(logistModList, c(0,1), base = 0, maxEff = 1)
logisticGrad(dose = (0:4)/4, eMax = 1, ed50 = 0.5, delta = 0.05)
Run the code above in your browser using DataLab