Fix print family bug when more than one param

NERC-CEH · Sep 25, 2024 · b4b71de · b4b71de
1 parent 13e32b7
commit b4b71de
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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"))
   }
 }