如何將glmnet結果（coef）寫入R中的csv或文本文件

Question

我正在為彈性網使用R glmnet軟件包，結果如下所示：

     TRTREJ6M_KIY                     .           
     TXKIDE                          -1.317048e-01
     TXKIDL                           .           
     TXKIDR                           .           
     URINE_INF_DON                    .           
     VASODIL_DONN                     .           
     VASODIL_DONU                     .            
     VASODIL_DONY                     .           

我已經試過了：

   print1
   function(riskcoef99){ind <- which(coef(riskcoef99) != 0)
   df <- data.frame(
   feature=rownames(coef(riskcoef99))[ind],
   coeficient=coef(riskcoef99)[ind]
   )
   kable(df)
   }

和這個：

    colnames(risklevelcsv)[which(coef(riskCV99,s="lambda.min") != 0)]

glmnet文件的名稱為riskCV99，我已將risefcoef99文件保存為coefs。 請幫我把結果寫到我最近2天一直在嘗試並無法解決的csv，excel或文本文件中。 提前致謝

Answer 1

您沒有提供足夠的可復制示例來確保我們可以匹配您的確切情況，但是請考慮一下。

該功能

extract <- function(o, s) { 
    index <- which(coef(o, s) != 0) 
    data.frame(name=rownames(coef(o))[index], coef=coef(o, s)[index]) 
}

可以用於從glmnet對象o到數據幀提取非零系數（給定s ）。 有了數據框后，可以使用write.csv將其另存為csv：

 df <- extract(riskcoef99, s=0.1)
 write.csv(df, file="saved.csv", row.names=FALSE, quote=FALSE)