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"), alpha)
  
  CRS.6(fixed = c(NA, NA, NA, NA, NA, NA), 
  names = c("b","c","d","e","f","g"))
  
  ucedergreen(fixed = c(NA, NA, NA, NA, NA), names = c("b", "c", "d", "e", "f"), 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