Question

当在 Windows 上使用 R 中的数据组时, 我试图找到一个简单的方法将数据组的结果从数据组转换到主机。如果结果是一个数组或一个简单数字, 则对每个 /% dopar% 语句的.combine 选项会处理此事, 但是如果结果是一个复杂的对象, 如果结果是一个复杂的对象, 则让这样一个随机Forest 模型, 如何将整个模型从奴隶组转换回主机?

我尝试使用 env=. global 来与 env=. global 进行拼接,但是对我的 Windows 7 没用。

最后,我通过保存对象以存档来工作。然后主人可以收回对象。如果有人知道更优雅的方法或者为什么屁股不工作,我很感激你的评论。

样本代码 :

print(" paralelize with 8 cores ------------------------------")
library(doSNOW)
cl<-makeCluster(8)
registerDoSNOW(cl)
clusterEvalQ(cl, library(randomForest))
clusterExport(cl, "x")
clusterExport(cl, "y")
clusterExport(cl, "x.selected")

makeModel <- function(i){
  m <- randomForest(x,x.selected[i,],mtry=250,sampsize=3200,ntree = 3000,do.trace=TRUE) 
  eval(parse(text = paste("model_",i," <- m",sep="")))
  eval(parse( text =paste("save(model_", i, ", file ="model_", i, ".Rdata")",sep="" ) ))
}

foreach(i = 1:length(x.selected[,1]),.verbose = TRUE ) %dopar% makeModel(i)
stopCluster(cl)

foreach(i = 1:length(x.selected[,1]),.verbose = TRUE ) %do% 
load(paste("model_",i,".RData",sep=""))

Answer 1

如果您不指定.combine 函数, 每个人将返回一个列表, 以便处理任意对象, 就像 CroupApply 函数一样。许多前例都使用 < code>.combine= "c" , 但是这不会对随机 Forest 模型对象起作用。如果 leach 环体对随机 Forest 模型对象进行评价, 则每个对象都会返回这些对象的列表。

这里是一个随机Forest 示例的简化版本, 从每个前方的软件包中返回列表中的模型对象, 并随后将其合并。我还对它进行了修改, 以便使用 doSNOW 软件包, 如您的例子 :

library(doSNOW)
library(randomForest)
cl <- makeCluster(8)
registerDoSNOW(cl)
nr <- 1000
x <- matrix(runif(100000), nr)
y <- gl(2, nr/2)
rf <- foreach(ntree=rep(125, 8), .packages= randomForest ) %dopar% {
  randomForest(x, y, ntree=ntree)
}
crf <- do.call( combine , rf)
print(crf)
stopCluster(cl)

友情链接