## Modified logistic model
lettuce.m1 <- drm(lettuce[,c(2,1)], fct=CRS.4a())
summary(lettuce.m1)
ED(lettuce.m1, c(50))
lettuce.m2 <- drm(lettuce[,c(2,1)], fct=CRS.4b())
summary(lettuce.m2)
ED(lettuce.m2, c(50))
lettuce.m3 <- drm(lettuce[,c(2,1)], fct=CRS.4c())
summary(lettuce.m3)
ED(lettuce.m3, c(50))
Run the code above in your browser using DataLab