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 peak
Run the code above in your browser using DataLab