randomForestループと可変重要度をRで実行する

Question

Rで回帰randomForestを100回実行したい場合は、実行ごとに可変重要度を取得し、可変重要度の結果をcsvファイルとして書き出します。これは私のコードとそのエラーです：

result<-data.frame(IncMSE="%IncMSE", IncNodePurity="IncNodePurity") 
for (i in 1:3){ 
imp[i]<- importance(randomForest(train[,1:11], train[,12], data = train,importance = TRUE, ntree =5000, proximity = TRUE, mtry=3)) 
results<-cbind(result,imp[i]) 
} 
write.csv(results,"D:/vari.csv") 

Warning messages: 
In imp[i] <- importance(randomForest(train[, 1:11], train[, 12], : 
number of items to replace is not a multiple of replacement length 

それを修正するには？どうもありがとう。

Answer 1

は、いくつかの小さなものがありました、rbind代わりresult対results、names()紛争、未定義のオブジェクトimp上のインデックスなど、cbindの：

data("mtcars") 
train <- mtcars 
require(randomForest) 

result <- data.frame() 
for (i in 1:3){ 
    imp <- importance(randomForest(train[,2:10], y = train[,1], data = train,importance = TRUE, ntree =5000, proximity = TRUE, mtry=3)) 
    result <- rbind(result, imp) 
} 
write.csv(result, "D:/vari.csv")