data("degradation")
model <- drm(Conc ~ Time, fct = DRC.expoDecay(),
data = degradation)
summary(model)
model2 <- nls(Conc ~ NLS.expoDecay(Time, a, b),
data = degradation)
summary(model2)
Run the code above in your browser using DataLab