aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKen Kellner <kenkellner@users.noreply.github.com>2021-02-03 19:42:51 -0500
committerGitHub <noreply@github.com>2021-02-03 19:42:51 -0500
commit3f2273b8141ff890013843926a92f75b373851d7 (patch)
treea9ed33e13188a04332be390dd7c09ec0240f7034
parenta8d827a121aa7fb7e761df8aaca4a2052a1fece1 (diff)
parenta782efdbbd41fa3e7e4a5656de8d1c79725d651d (diff)
Merge pull request #44 from mikemeredith/master
Fix bug in update.jagsUI
-rw-r--r--DESCRIPTION4
-rw-r--r--R/update.R10
2 files changed, 11 insertions, 3 deletions
diff --git a/DESCRIPTION b/DESCRIPTION
index 3a84308..f3b4c6c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: jagsUI
-Version: 1.5.1.9100
-Date: 2020-10-07
+Version: 1.5.1.9101
+Date: 2021-01-31
Title: A Wrapper Around 'rjags' to Streamline 'JAGS' Analyses
Author: Ken Kellner <contact@kenkellner.com>
Maintainer: Ken Kellner <contact@kenkellner.com>
diff --git a/R/update.R b/R/update.R
index 03d1451..4576426 100644
--- a/R/update.R
+++ b/R/update.R
@@ -53,7 +53,15 @@ update.jagsUI <- function(object, parameters.to.save=NULL, n.adapt=NULL, n.iter,
#Run process output
output <- process.output(samples,DIC=DIC,codaOnly,verbose=verbose)
-
+ if(is.null(output)){
+ output <- list()
+ output$samples <- samples
+ output$model <- m
+ output$n.cores <- object$mcmc.info$n.cores
+ class(output) <- 'jagsUIbasic'
+ return(output)
+ }
+
#Summary
output$summary <- summary.matrix(output,samples,object$mcmc.info$n.chains,codaOnly)