From b6dbe009b86f47871cfeead36bdde08d6b568fef Mon Sep 17 00:00:00 2001
From: Jillian Dunic <>
Date: Tue, 13 Feb 2024 14:22:00 -0800
Subject: [PATCH] only show gengamma_Q if gengamma model

---
 R/print.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/print.R b/R/print.R
index bf23c9080..c70104d6c 100644
--- 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",