从 R 输出中提取值答案

【问题标题】：Extract value from R output从 R 输出中提取值
【发布时间】：2017-10-14 21:40:07
【问题描述】：

我想知道如何将下面的 Out of Bag Error (OOB) 值写入 csv。当我输入摘要（rf）时，它们不包括在内。从对象摘要中提取值是我尝试过的唯一其他方法，但我现在没有想法。我还包括了我的 write to table 函数，它适用于对象。

代码：

rf <- tuneRF(x = Pdata[, Imppredictors], y = Pdata[, Response], mtryStart = 1, 
             doBest = TRUE)
mtry = 1  OOB error = 0.6832447 
Searching left ...
Searching right ...
mtry = 2    OOB error = 0.6329592 
0.07359804 0.05 
mtry = 4    OOB error = 0.7310359 
-0.1549495 0.05

csv 函数：

write.table(Mse, file = "test1.txt", sep = " ", quote = FALSE, append = FALSE)

【问题讨论】：

缺失：加载所需包的数据和代码。

标签： r function csv extract

【解决方案1】：

来自tuneRF documentation：

如果 doBest=FALSE（默认），则返回一个矩阵，其第一列包含搜索的 mtry 值，第二列包含相应的 OOB 错误。

所以：

rf <- tuneRF(x = Pdata[, Imppredictors], y = Pdata[, Response], mtryStart = 1)

然后你可以write.table(rf, ...)

【讨论】：