【发布时间】:2012-02-10 05:46:45
【问题描述】:
我正在 Windows 7 上使用降雪包进行模拟研究。
我喜欢每 10 次运行打印一条消息到主 R 控制台以监控进度,但它没有这样做。 IE。什么都没有打印出来
任何帮助将不胜感激。
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)
【问题讨论】:
-
你可能需要
sfCat。 -
@Roman:我尝试了你的建议,替换了 cat vt sfCat。我收到以下错误消息
Error in checkForRemoteErrors(val) : 2 nodes produced errors; first error: could not find function "sfCat"关于如何修复它的任何想法?谢谢 -
您可以尝试使用 sfLibrary 将降雪加载到工作人员中。 sfCat 是降雪的一部分,默认情况下不会将包加载到工作程序中。
-
@Paul 感谢您的建议。这次没有错误消息,但又没有打印任何内容