求助偏最小二乘法结果，那种是正确的？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

这是code
###偏最小二乘法
library(lars)
library(pls)


#偏最小二乘

data1<-read.csv("C:\\pls1.csv")
names(data1)
data2<-data1[,2:9]

data3<-data.frame(scale(data2))
library(pls)
set.seed(1)  #求最优的成分个数
shuju.plsr <- plsr(y1~., ncomp=2,data=data3,validation="CV")

summary(shuju.plsr)

coef(shuju.plsr)



#下面使2个成分
shuju.plsr3 <- plsr(y1~.,ncomp = 2,data=data2,scale=T,validation="CV")
summary(shuju.plsr3)
coef(shuju.plsr3)
shuju.coef <- coef(shuju.plsr3)/apply(data2[,1:7],2,sd)#求原始变量的回归系数
shuju.int <- mean(data2$y1)-shuju.coef%*%apply(data2[,1:7],2,mean)#求截距
c(shuju.int,shuju.coef)

##上面两个过程算出来的结果不太一样，请问那个是正确的算法？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：偏最小二乘法 最小二乘法 偏最小二乘 最小二乘 Library

没有人给我回复吗？