summary(dat.pr,loadings=TRUE)screeplot(dat.pr,type="lines")#碎石图p <- predict(dat.pr)#主成分散点图并预测biplot(dat.pr)plot(dat.pr)pre<-predict(dat.pr)
fir<-lm(y~,data=dat)summary(lm.sol)
报错复制出来发给我