Last chance! 50% off unlimited learning
Sale ends in
CRS.4a(names = c("b", "d", "e", "f"))
UCRS.4a(names = c("b", "d", "e", "f"))
cedergreen
.cedergreen
.CRS.5a
and UCRS.5a
,
but with an extra parameter for the lower limit.## Fitting modified logistic models
lettuce.crsm1 <- drm(lettuce[,c(2,1)], fct=CRS.4a())
summary(lettuce.crsm1)
ED(lettuce.crsm1, c(50))
lettuce.crsm2 <- drm(lettuce[,c(2,1)], fct=CRS.4b())
summary(lettuce.crsm2)
ED(lettuce.crsm2, c(50))
lettuce.crsm3 <- drm(lettuce[,c(2,1)], fct=CRS.4c())
summary(lettuce.crsm3)
ED(lettuce.crsm3, c(50))
Run the code above in your browser using DataLab