例解回归分析第五版10.4题目R语言代码

最新推荐文章于 2024-04-18 19:21:23 发布

平型关大捷

最新推荐文章于 2024-04-18 19:21:23 发布

阅读量1.9k

点赞数 1

分类专栏：学习资料

本文链接：https://blog.csdn.net/qq_42318700/article/details/85057383

版权

本文通过R语言详细解答了回归分析第五版第10.4题，深入探讨了回归模型的构建和分析，包括数据预处理、模型拟合、结果解释等关键步骤。

摘要由CSDN通过智能技术生成

例解回归分析第五版10.4题目R语言代码

// An highlighted block
load("RABE5.RData")  # 载入数据
A <- P290  # 载入数据
# (a)
f1 <- function(X){
   
  (X - mean(X))/sqrt((sum((X - mean(X)) ^ 2)))
}  # 标准化变换
S <- apply(A, 2, f1)  # 计算标准化后的X和Y
S <- as.data.frame(S)  #转换成数据框

lm1 <- lm(S$Y ~ S$X1 + S$X2 + S$X3 + S$X4 + S$X5 + S$X6 +0 )

summary(lm1)  # R2很高，但很多系数不显著，数据存在共线性
# (b)
XiShu <- coefficients(lm1)
f2 <- function(X){
   
  sqrt(