PROSAGA码农传奇-云鉴权-当运行多次执行glm函数的for循环时，RAM需求呈指数级增长

<div class =“post-text”itemprop =“text”>
  
    请考虑以下选项：
  
  <OL>
    <LI>
      
        预先分配任何所需的对象，而不是迭代地使用值扩展它，这需要机器使用内存重新分配空间，您可以为现有元素赋值：
      
       <pre>
 <code>
 models_glm <- vector(mode = "list", length = 45)

</code>
 </pre>
      
        实际上，甚至考虑事先命名元素：
      
       <pre>
 <code>
 pnames <- sapply(1:nrow(combinations)-1, function(i){
 paste0(predictor_names[combinations[i,1]], "_*_", 
 predictor_names[combinations[i,2]])
})

models_glm <- setNames(vector(mode="list", length=45), pnames)

</code>
 </pre>
    </LI>
    <LI>
      
        使用
         <code>
 data.table::rbindlist()
 </code>
         在一次调用中将数据表列绑定到一个大型数据帧，而不是在循环内逐行扩展数据帧。以下用途
         <code>
 lapply
 </code>
         返回一个等于输入长度的对象。另外，请注意要避免的空数据表
         <code>
 NULL
 </code>
         回来，离开了
         <code>
 rbindlist
 </code>
        ：
      
       <pre>
 <code>
 dTList <- lapply(seq(nrow(combinations)-1), function(i) {

#... same as above

# use <<- operator to update environment object outside function
 models_glm[[paste0(m_name, "_*_", k_name)]] <<- model

#...
 Coefficients_df <- setNames(as.data.frame(summary(model)$coefficients), 
 c("Estimate", "SE", "Z", "p.value"))

if(dim(Coefficients_df)[1] == 4){
              data.table(
                  Predictor_1 = m_name , 
                  Predictor_2 = k_name, 
                  dev_ratio = dev.ratio,
                  Estimate =  Coefficients_df$Estimate[4], 
                  p.value = Coefficients_df$p.value[4] 
              )
        } else {
              # RETURN EMPTY DT
              data.table(
                  Predictor_1 = character(), 
                  Predictor_2 = character(), 
                  dev_ratio = numeric(),
                  Estimate =  numeric(), 
                  p.value = numeric()
              )
        }
})

coefficients <- data.table::rbindlist(dTlist)
rm(dTlist)
gc()

</code>
 </pre>
    </LI>
    <LI>
      
        最后，对于不需要设计/编程工作的大型操作，请考虑使用RStudio或Rgui上的自动Rscript.exe，因为这些后续程序需要额外的资源。下面是一个命令行，可以从PowerShell，CMD提示符或批处理（.bat）文件运行，假设Rscript是环境PATH变量：
      
       <pre>
 <code>
 Rscript "C:\Path\To\ModelCoefficientDataBuild.R"

</code>
 </pre>
      
        具体来说，Windows上的RStudio的rsession.exe在会话结束之前一旦获得它就不会将内存释放回操作系统。看到
        <a href =“https://www.google.com/search?q=rstudion+rsession+exe&ie=utf-8&oe=utf-8#q=rstudio+rsession+memory"rel =”nofollow noreferrer “>
          关于主题的RStudio论坛帖子
        </A>
        。当然，请务必将您需要的对象保存到磁盘以供以后使用：
      
       <pre>
 <code>
 saveRDS(coefficients, "coefficients_datatable.rds")

</code>
 </pre>
    </LI>
  </醇>
</DIV>