NEC(fixed = c(NA, NA, NA, NA), names = c("b", "c", "d", "e"), fctName, fctText)
NEC.2(upper = 1, fixed = c(NA, NA), names = c("b", "e"), ...)
NEC.3(fixed = c(NA, NA, NA), names = c("b", "d", "e"), ...)
NEC.4(fixed = c(NA, NA, NA, NA), names = c("b", "c", "d", "e"), ...)
NEC
NEC
in "drc" corresponds to the parameter c' in Pires et al (2002),
the parameter b in NEC
in "drc" corresponds to the parameter m' in Pires et al (2002), the parameter d
in NEC
in "drc" corresponds to the parameter l' in Pires et al (2002), and finally the parameter c in
NEC
in "drc" (the lower horizontal limit) is (implictly) fixed at 0 in Pires et al (2002)=e$>nec.m1 <- drm(rootl~conc, data=ryegrass, fct=NEC.4())
summary(nec.m1)
plot(nec.m1)
abline(v=coef(nec.m1)[4], lty=2) # showing the estimated threshold
Run the code above in your browser using DataLab