有点烦的方法
tmp = paste0(paste0('fit',0:10),collapse= ',')
flist = eval(parse(text = paste0('list(',tmp,')')))
lapply(flist,function(x)predict(x,x$lambda.lse, newx = x.test))
最后一行的的x, x$lambda可能要一点点改动,你可以给最后得到的列表再分别赋值yhat_i
|
楼主: tongtaoju
|
872
4
[问答] R语言for问题 |
|
本科生 6%
-
|
30论坛币
最佳答案 | |
|
|
| ||
| ||
加好友,备注cda京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


