From b4b71de9c7c218cfd3f6cc3fb87f484cbf6884ee Mon Sep 17 00:00:00 2001 From: Fiona Seaton Date: Wed, 25 Sep 2024 15:22:55 +0100 Subject: [PATCH] Fix print family bug when more than one param --- R/jsdmstan-families.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/jsdmstan-families.R b/R/jsdmstan-families.R index 70c2bb4..7e6e53f 100644 --- a/R/jsdmstan-families.R +++ b/R/jsdmstan-families.R @@ -56,13 +56,13 @@ print.jsdmStanFamily <- function(x, ...){ cat(paste("Family:", x$family, "\n", ifelse(length(x$params)>0, paste("With parameters:", - paste0(x$params, sep = ", "),"\n"), + paste0(x$params, collapse = ", "),"\n"), ""))) if(length(x$params_dataresp)>0){ cat(paste("Family-specific parameter", - paste0(x$params_dataresp,sep=", "), + paste0(x$params_dataresp,collapse=", "), "is modelled in response to", length(x$preds), "predictors. These are named:", - paste0(x$preds, sep = ", "))) + paste0(x$preds, collapse = ", "),"\n")) } }