在R中得到线性回归模型

Question

我正在运行一个看起来像这样的玩具预测模型：

model1 <- lm(weight ~ age)
plot(predict(model1), weight)
pred.frame <- data.frame(age = 4:20)
pp <- predict (model1, int = "p", newdata = pred.frame)
pc <- predict (model1, int = "c", newdata = pred.frame)
plot(age, weight, ylim = range(weight, pp, na.rm = TRUE))
pred.model1 <- pred.frame$age
matlines(pred.model1, pc, lty = c(1,2,2), col = 'black')
matlines(pred.model1, pp, lty = c(1,3,3), col = 'black')

然而，我得到的图形有pc和pp线切割：

尝试了几台计算机，我一直得到相同的结果。两者都运行最新版本的Mac OS与小牛，石英生成图形。

对我可能做错的任何想法？感谢

Answer 1

考虑到您的代码是

，您执行预测的数据范围似乎限制在4到20年之间

pred.frame <- data.frame(age = 4:20)

使用

再试一次

pred.frame <- data.frame(age = 4:40)