#偏最小二乘
setwd("C:/Users/IBM/Desktop/研一课程/2.2回归分析/回归作业") #设定当前的工作目录
shuju=read.table("shuju.txt",header=T)
shuju #读取数据
library(pls)
set.seed(1) #求最优的成分个数
shuju.plsr <- plsr(y~.,data=shuju[,-1],scale=T,validation="CV")
summary(shuju.plsr)
#下面使用3个成分
shuju.plsr3 <- plsr(y~.,3,data=shuju[,-1],scale=T,validation="CV")