Мой доверительный интервал выдает более одного наблюдения

Question

Следующая ссылка - мой необработанный набор данных.

введите описание ссылки здесь

Я создал для нее модель линейной регрессии.А теперь я хотел бы создать 95-процентный доверительный интервал для прогноза, что если «Weight = 26».

Мой код был похож на следующее:

          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