only show gengamma_Q if gengamma model

pbs-assess · Feb 13, 2024 · b6dbe00 · b6dbe00
1 parent 210b69b
commit b6dbe00
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/print.R b/R/print.R
@@ -276,7 +276,9 @@ print_other_parameters <- function(x, m = 1L) {
 
   phi <- get_term_text("phi", "Dispersion parameter")
   tweedie_p <- get_term_text("tweedie_p", "Tweedie p")
-  gengamma_par <- get_term_text("gengamma_Q", "Generalized gamma lambda")
+  gengamma_par <- if ('gengamma' %in% family(x)[[m]]) {
+    get_term_text("gengamma_Q", "Generalized gamma lambda") 
+    } else ""
   sigma_O <- get_term_text("sigma_O", "Spatial SD")
   xtra <- if (x$spatiotemporal[m] == "ar1") "marginal " else ""
   sigma_E <- get_term_text("sigma_E",