r - 如何在多元线性回归模型中找到预测数字？

Question

问题要求我找出平均船舶的预计乘客人数

我已经使用矩阵运算和 R 中的 lm 函数计算出 β 来估计模型。但是如何计算平均船舶的预测数量？谢谢

cship <- read.csv("C:/Users/Yuxi Liu/Desktop/cruise_ship.dat.csv")
colnames(cship)=c("ShipName","CruiseLine","Age","Tonnage","passengers","Length","Cabins","pdensity","crew")
cship_model = lm(passengers ~ Age + Tonnage + Length, data = cship)
coef(cship_model)
n = nrow(cship)
p = length(coef(cship_model))
X = cbind(rep(1, n), cship$Age, cship$Tonnage, cship$Length)
y = cship$passengers

t(X) %*% X
t(X) %*% y

(beta_hat = solve(t(X) %*% X) %*% t(X) %*% y)

cship_model = lm(passengers ~ Age + Tonnage + Length, data = cship)
cship_model

标签： rlinear-regressionprediction