## Fitting the logistic model
m1 <- multdrc(ryegrass, fct = logistic())
summary(m1)
## Fitting an asymmetric logistic model
## requires installing the package 'NISTnls'
# m2 <- drm(y~x, data = Ratkowsky3,
# fct = b5(fixed = c(NA, 0, NA, NA, NA)))
# plot(m2)
# summary(m2)
## okay agreement with NIST values
## for the two parameters that are the same
Run the code above in your browser using DataLab