Un colega mío me envió este problema aparentemente haciendo las rondas en Internet:
If $3 = 18, 4 = 32, 5 = 50, 6 = 72, 7 = 98$, Then, $10 =$ ?
La respuesta parece ser 200.
3*6
4*8
5*10
6*12
7*14
8*16
9*18
10*20=200
Cuando hago una regresión lineal en 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')
Yo obtengo:
fit lwr upr
1 154 127.5518 180.4482
2 354 287.0626 420.9374
3 554 444.2602 663.7398
Entonces mi modelo lineal predice .
Cuando trazo los datos parece lineal ... pero obviamente asumí algo que no es correcto.
Estoy tratando de aprender cómo usar mejor los modelos lineales en R. ¿Cuál es la forma correcta de analizar esta serie? ¿Qué hice mal?