主成分回归的r语言代码

这篇博客展示了如何在R语言中运用pls包的pcr函数进行主成分回归分析。通过设定工作目录,读取数据,然后进行主成分回归计算,确定最优主成分个数,并对模型系数进行了标准化处理。最后,还探讨了主成分个数的选择并绘制了验证图。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

setwd("C:/Users/IBM/Desktop/研一课程/2.2回归分析/回归作业")  #设定当前的工作目录
shuju=read.table("shuju.txt",header=T)
shuju   #读取数据
#主成分回归,用函数pcr
library(pls)  #pls包提供pcr函数,也提供偏最小二乘回归函数plsr,而函数mvr是二者的集成
attach(shuju)  #pcr可以在scale=T的设置下对自变量进行标准化,但注意对因变量并未标准化
set.seed(1)
shuju.pcr<-pcr(y~x1+x2+x3+x4+x5+x6+x7,4,scale=T,validation="CV")#主成分回归
summary(shuju.pcr) #这里采用的最优量化指标为均方根误差RMSEP,要得到MSE,需要对RMSEP做平方
coef(shuju.pcr)
#还原到原始变量的模型系数
cx1<-coef(shuju.pcr)[1]/sd(shuju$x1)
cx2<-coef(shuju.pcr)[2]/sd(shuju$x2)
cx3<-coef(shuju.pcr)[3]/sd(shuju$x3)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

TJ统计

关注公众号:Java后端技术栈

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值