diff options
author | Ken Kellner <ken@kenkellner.com> | 2021-09-25 07:47:19 -0400 |
---|---|---|
committer | Ken Kellner <ken@kenkellner.com> | 2021-09-25 07:47:19 -0400 |
commit | 7b87157a34297f7970abba41375fbadf64c6a170 (patch) | |
tree | 4b4d51ace0b8a4707a3e9073ae3541d9bb124f6b | |
parent | 73b0fbb7780200afab4a3a95657e45c2b4e59397 (diff) |
Don't try to plot parameters in codaOnly, fixes #48
-rw-r--r-- | DESCRIPTION | 4 | ||||
-rw-r--r-- | R/get_plot_info.R | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/DESCRIPTION b/DESCRIPTION index 0140015..f1e2a2c 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: jagsUI -Version: 1.5.2.9000 -Date: 2021-09-21 +Version: 1.5.2.9001 +Date: 2021-09-25 Title: A Wrapper Around 'rjags' to Streamline 'JAGS' Analyses Authors@R: c( person("Ken", "Kellner", email="contact@kenkellner.com", role=c("cre","aut")), diff --git a/R/get_plot_info.R b/R/get_plot_info.R index e82202f..ac0ae42 100644 --- a/R/get_plot_info.R +++ b/R/get_plot_info.R @@ -5,7 +5,7 @@ get_plot_info <- function(x, parameters, layout, ask, Rhat_min=NULL){ #Expand non-scalar parameters and check they exist - all_params <- param_names(x$samples) + all_params <- rownames(x$summary) if(!is.null(parameters)){ #Expand bracketed parameter names parameters <- expand_params(parameters) @@ -38,7 +38,7 @@ get_plot_info <- function(x, parameters, layout, ask, Rhat_min=NULL){ layout <- rep(layout[1], 2) } per_plot <- prod(layout) - + #Set up new par settings new_par <- list(ask=ask) if(per_plot > 1) { @@ -46,7 +46,7 @@ get_plot_info <- function(x, parameters, layout, ask, Rhat_min=NULL){ new_par$oma <- c(3,3,0,0) new_par$mar <- c(1.5,1.5,2.5,1) } - + list(params=parameters, new_par=new_par, per_plot=per_plot) } |