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