library(statforbiology)
degradation <- read.csv("https://www.casaonofri.it/_datasets/degradation.csv")
mod <- nls(Conc ~ A*exp(-k*Time),
start=list(A=100, k=0.05),
data=degradation)
plotnls(mod, which = 3)
Run the code above in your browser using DataLab