added definition for jags burninTimeResult when burnin=0

nimble-dev · Dec 5, 2021 · 5bf5684 · 5bf5684
1 parent 7faa8c1
commit 5bf5684
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/compareMCMCs/R/MCMCdef_jags.R b/compareMCMCs/R/MCMCdef_jags.R
@@ -29,6 +29,7 @@ MCMCdef_jags_impl <- function(MCMCinfo,
     })
     setupTime <- setupTimeResult[3]
 
+    burninTimeResult <- system.time(0)   ## needs to be defined even when burnin = 0
     burninTime <- 0
     if(MCMCcontrol$burnin > 0) {
         burninTimeResult <- system.time(update(object = jags_mod,