library(pls)
set.seed(1)
model <- plsr(hp~mpg+disp+drat+wt+qsec, data=mtcars, scale=TRUE, validation="CV",ncomp=3)
coefplot(model, ncom = 1:3, legendpos = "bottomright")
|
楼主: zhanfei1990
|
456
0
[新手尝试] pls尝试 |
jg-xs1京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


