Мой коллега прислал мне эту проблему, очевидно, делая обходы в Интернете:
If $3 = 18, 4 = 32, 5 = 50, 6 = 72, 7 = 98$, Then, $10 =$ ?
Ответ, кажется, 200.
3*6
4*8
5*10
6*12
7*14
8*16
9*18
10*20=200
Когда я делаю линейную регрессию в R:
data <- data.frame(a=c(3,4,5,6,7), b=c(18,32,50,72,98))
lm1 <- lm(b~a, data=data)
new.data <- data.frame(a=c(10,20,30))
predict <- predict(lm1, newdata=new.data, interval='prediction')
Я получил:
fit lwr upr
1 154 127.5518 180.4482
2 354 287.0626 420.9374
3 554 444.2602 663.7398
Итак, моя линейная модель предсказывает .
Когда я строю данные, они выглядят линейными ... но, очевидно, я предположил что-то не то.
Я пытаюсь узнать, как лучше всего использовать линейные модели в R. Как правильно анализировать этот ряд? Где я неправ?