Ошибка при использовании функции nls в R, невозможно получить оценки LS - PullRequest
0 голосов
/ 03 июня 2019

Я пытаюсь согласовать некоторые данные с отрицательной экспоненциальной моделью в 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

1 Ответ

1 голос
/ 03 июня 2019

Вы пытаетесь оценить t, когда это независимая переменная в вашей формуле

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(b=0))

Это прекрасно работает

...