從R輸出中提取值

Question

我想知道如何將以下的袋外錯誤（OOB）值寫入csv。當我輸入摘要（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, ...)