Diff of /R/jags.R [125fce] .. [0c6804]  Maximize  Restore

  Switch to side-by-side view

--- a/R/jags.R
+++ b/R/jags.R
@@ -298,7 +298,8 @@
     class(model) <- "jags"
 
     if (n.adapt > 0) {
-        ok <- adapt(model, n.adapt, end.adaptation=FALSE)
+        pb <- if(quiet) NULL else getOption("jags.pb")
+        ok <- adapt(model, n.adapt, end.adaptation=FALSE, progress.bar=pb)
         if (ok) {
             .Call("adapt_off", p, PACKAGE="rjags")
         }

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks