求问关于优化代码提高速度

sonicworm

大致过程如下，用glmnet包做回归，把多次的结果放在一个对象list里面，想请问以下代码（示例）还有没有优化的余地，谢谢[s:11]

reg_model <- vector("list",length(adj_list))

for (i in 1:length(adj_list)){

fit1m=cv.glmnet(x,y,family="mgaussian",standardize=FALSE)

reg_model[] <- fit1m

clear(fit1m)

rm(fit1m)

}