有点烦的方法
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
|
571
4
[问答] R语言for问题 |
本科生 6%
-
|
30论坛币
最佳答案 | |
| ||
京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明 免责及隐私声明