library(statforbiology)
Time <- 1:20
Resp <- c(0.18, 0.64, 1.14, 0.67, 0.32, 0.86, 0.70, 0.73, 0.89, 0.48,
2.20, 1.03, 1.14, 2.14, 1.31, 2.08, 1.85, 1.47, 1.98, 1.30)
model <- drm(Resp ~ Time, fct = DRC.expoGrowth())
summary(model)
model2 <- nls(Resp ~ NLS.expoGrowth(Time, a, b))
summary(model2)
Run the code above in your browser using DataLab