Bir meslektaşım bana bu problemi internette tur attı:
If $3 = 18, 4 = 32, 5 = 50, 6 = 72, 7 = 98$, Then, $10 =$ ?
Cevap 200 gibi görünüyor.
3*6
4*8
5*10
6*12
7*14
8*16
9*18
10*20=200
R doğrusal bir regresyon yaptığımda:
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')
Alırım:
fit lwr upr
1 154 127.5518 180.4482
2 354 287.0626 420.9374
3 554 444.2602 663.7398
Doğrusal modelim tahmin ediyor .
Verileri çizdiğimde doğrusal görünüyor ... ama açıkçası doğru olmayan bir şey varsaydım.
R'de doğrusal modellerin en iyi şekilde nasıl kullanılacağını öğrenmeye çalışıyorum. Bu seriyi analiz etmenin doğru yolu nedir? Nerede hata yaptım?