我的置信区间输出了多个观察结果

Question

以下链接是我的原始数据集。

enter link description here

我为此创建了线性回归模型。 现在，我想为“ Weight = 26”的预测创建95％的置信区间。

我的代码如下：

          MileWeight.lm <-lm(Mydata$Mileage~Mydata$Weight, 
    data = Mydata)
attach(Mydata)
newdata1 <-(Weight=26)

predict(MileWeight.lm, weight= 26  , interval = "confidence")

输出为7行，带有“ fit lwr upr”， 带有警告

  

'newdata'有1行，但是找到的变量有7行

我错过了什么吗？ 任何帮助将不胜感激！ 谢谢！

数据，格式为dput。

Mydata <-
structure(list(Weight = c(8, 24.5, 27, 14.5, 28.5, 12.75, 21.25
), Mileage = c(7.69, 4.97, 4.56, 6.49, 4.34, 6.24, 4.45)), class = "data.frame", row.names = c(NA, 
-7L))

Answer 1

MileWeight.lm <- lm(Mileage ~ Weight, data = Mydata)
predict(MileWeight.lm, data.frame(Weight = 26), interval = "confidence")
#       fit      lwr      upr
#1 4.525936 3.922626 5.129246