Question

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

代码：

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)

Answer 1

来自tuneRF documentation：

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

所以：

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

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

从R输出中提取值

1 个答案: