Windows 7 で Snowfall パッケージを使用してシミュレーション研究を行っています。
進行状況を監視するために、メインの R コンソールに 10 回の実行ごとにメッセージを出力したいのですが、そうできません。すなわち。何も印刷されない
どんな助けでも大歓迎です。
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)