model1 <- multdrc(drymat~dose, curve, data=cabanne, cm="0")
plot(fitted(model1), residuals(model1))
## Fitting one curve with variance as a power of the mean
model2 <- multdrc(drymat~dose, data=cabanne[c(1:40,141:240),], varPower=TRUE)
rm(model1, model2)
Run the code above in your browser using DataLab