Я пытаюсь согласовать некоторые данные с отрицательной экспоненциальной моделью в R, но, похоже, она не работает, и я не могу найти ошибку или способ обойти ее.
t<-c(1,4,16)
y<-c(0.8,0.45,0.04)
tabla<-data.frame(t,y)
reg<-nls(y~exp(-b*t),tabla,start = list(t=0,b=0))
Я получаю следующую ошибку после запуска кода
Error in qr(.swts * attr(rhs, "gradient")) :
dims [product 2] do not match the length of object [3]
In addition: Warning message:
In .swts * attr(rhs, "gradient") :
longer object length is not a multiple of shorter object length