[Pomp-commits] r89 - pkg/R

[noreply at r-forge.r-project.org]

Author: kingaa
Date: 2009-04-13 14:15:53 +0200 (Mon, 13 Apr 2009)
New Revision: 89

Modified:
   pkg/R/pfilter.R
Log:
a bit less reporting when verbose=TRUE

Modified: pkg/R/pfilter.R
===================================================================
--- pkg/R/pfilter.R	2009-04-11 16:10:31 UTC (rev 88)
+++ pkg/R/pfilter.R	2009-04-13 12:15:53 UTC (rev 89)
@@ -215,8 +215,8 @@
       params[rw.names,] <- params[rw.names,]+rnorm(n=Np*length(sigma),mean=0,sd=sigma)
     }
 
-    if (verbose)
-      cat("step",nt,"of",ntimes,"finished\n")
+    if (verbose && ((ntimes-nt)%%5==0))
+      cat("pfilter timestep",nt,"of",ntimes,"finished\n")
 
   }