У меня есть следующие данные:
x <- c(10,20,30,40,50,60,70)
y <- c(110,235,435,655,830,930,980)
population <- data.frame(y,x)
Когда я пытаюсь вычислить параметры модели логистического роста:
fit_data <- nls(y ~ SSlogis(x, phi1, phi2, phi3), data = population)
alpha <- coef(fit_data) #extracting coefficients
Я получаю следующие коэффициенты:
phi1
1015.103
phi2
33.29877
phi3
11.11867
Которые сильно отличаются от тех, которые получены с помощью калькулятора TI-84: 1015.1, 19.98, -0.09. Кто-нибудь может объяснить эту разницу? Я делаю что-то не так с R?