CRS.6 is the extension of link{cedergreen} with freely varying alpha parameter.
For u-shaped hormesis data 'ucedergreen' provides a very general way of specifying the
Cedergreen-Ritz-Streibig modified log-logistic model, under various constraints on the parameters.cedergreen(fixed = c(NA, NA, NA, NA, NA),
names = c("b", "c", "d", "e", "f"),
method = c("1", "2", "3", "4"), ssfct = NULL,
alpha, fctName, fctText)
CRS.6(fixed = c(NA, NA, NA, NA, NA, NA),
names = c("b","c","d","e","f","g"),
method = c("1", "2", "3", "4"), ssfct = NULL)
ucedergreen(fixed = c(NA, NA, NA, NA, NA),
names = c("b", "c", "d", "e", "f"),
method = c("1", "2", "3", "4"), ssfct = NULL,
alpha)CRS.4a, CRS.4b,
CRS.4c, CRS.5a, CRS.5b, CRS.5c,
UCRS.4a, UCRS.4b, UCRS.4c, UCRS.5a,
UCRS.5b, UCRS.5c where a, b and c correspond to
the pre-specified alpha values 1, 0.5 and 0.25, respectively.## Estimating CRS model with alpha unknown
lettuce.crsm1 <- drm(weight~conc, data = lettuce, fct = CRS.6())
summary(lettuce.crsm1)
plot(lettuce.crsm1) # oops: not increasing until hormesis peakRun the code above in your browser using DataLab