Một đồng nghiệp của tôi đã gửi cho tôi vấn đề này rõ ràng là làm cho các vòng trên internet:
If $3 = 18, 4 = 32, 5 = 50, 6 = 72, 7 = 98$, Then, $10 =$ ?
Câu trả lời dường như là 200.
3*6
4*8
5*10
6*12
7*14
8*16
9*18
10*20=200
Khi tôi thực hiện hồi quy tuyến tính trong 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')
Tôi có:
fit lwr upr
1 154 127.5518 180.4482
2 354 287.0626 420.9374
3 554 444.2602 663.7398
Vì vậy, mô hình tuyến tính của tôi dự đoán .
Khi tôi vẽ dữ liệu, nó trông có vẻ tuyến tính ... nhưng rõ ràng tôi đã giả sử một cái gì đó không đúng.
Tôi đang cố gắng học cách sử dụng tốt nhất các mô hình tuyến tính trong R. Cách thích hợp để phân tích chuỗi này là gì? Tôi đã đi sai ở đâu?