У меня есть экспоненциальная модель, рассчитанная с mod <- nls(y ~ exp(- (x/a)^b), data = DF, start = list(a = 200, b = 1.4)) который я построил, используя: plot(x,y) lines(sort(DF$x),predict(mod, list(x=sort(DF$x))), lwd=2, col="red")...