From aeb918e83fd77d25da06b3efc271fe7f8aedcc7a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Franti=C5=A1ek=20Barto=C5=A1?= <38475991+FBartos@users.noreply.github.com> Date: Fri, 23 Jun 2023 10:08:15 +0200 Subject: [PATCH] fix: model_summary_table() \w prior_none() (#24) --- DESCRIPTION | 2 +- NEWS.md | 4 ++++ R/summary-tables.R | 4 +++- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index ae9bb59c..a7a3262a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: BayesTools Title: Tools for Bayesian Analyses -Version: 0.2.14 +Version: 0.2.15 Description: Provides tools for conducting Bayesian analyses and Bayesian model averaging (Kass and Raftery, 1995, , Hoeting et al., 1999, ). The package contains diff --git a/NEWS.md b/NEWS.md index e353450c..321f288d 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ +## version 0.2.15 +### Fixes +- fixing repeated print of previous prior distribution in `model_summary_table()` in case of `prior_none()` + ## version 0.2.14 ### Features - adding `contrast = "meandif"` to the `prior_factor` function which generates identical prior distributions for difference between the grand mean and each factor level diff --git a/R/summary-tables.R b/R/summary-tables.R index bd86c03d..9134977b 100644 --- a/R/summary-tables.R +++ b/R/summary-tables.R @@ -657,7 +657,9 @@ model_summary_table <- function(model, model_description = NULL, title = NULL, f summary_priors <- "Parameter prior distributions" for(i in seq_along(prior_list)){ # get the prior name - if(remove_spike_0 && is.prior.point(prior_list[[i]]) && prior_list[[i]][["parameters"]][["location"]] == 0 || (names(prior_list)[[i]] %in% remove_parameters)){ + if(is.prior.none(prior_list[[i]])){ + next + }else if(remove_spike_0 && is.prior.point(prior_list[[i]]) && prior_list[[i]][["parameters"]][["location"]] == 0 || (names(prior_list)[[i]] %in% remove_parameters)){ next }else if(is.prior.weightfunction(prior_list[[i]]) | is.prior.PET(prior_list[[i]]) | is.prior.PEESE(prior_list[[i]])){ temp_prior <- print(prior_list[[i]], silent = TRUE, short_name = short_name)