相关疑难解决方法(0)

我有一个foreach使用循环%dopar%使用doSNOW作为后端.如何在每次迭代中打印循环？

我下面的代码是我目前使用的,但它不打印任何东西.

foreach(ntree=rep(25,2),.combine=combine,.packages='randomForest',
    .inorder=FALSE) %dopar% {
        print("RANDOM FOREST")
        randomForest(classForm,data=data,na.action=na.action,do.trace=do.trace,ntree=ntree,mtry=mtry)
    }   

我正在使用Windows 7上的降雪软件包进行模拟研究.

我喜欢每10次运行打印一条消息到主R控制台来监控进度,但它没有这样做.即.没有打印

任何帮助都感激不尽.

runsim = function(nsim,n,mean,var){
cov = 0
for(i in 1:nsim){
if ( i %% 10==0) 
cat("\n Running simulation",i)
dat = function1(n,mean,var)

cov = ...
}
cov / nsim
}
sfExport("function1","runsim")
sfLibrary(library1)

wrapper = function(n){
runsim(100,n,0.5,0.25)
}

Out<-sfLapply(1:100,wrapper)