From 022bc674905fe7e87e26b14b3229fe236526cf1b Mon Sep 17 00:00:00 2001
From: Dr Nathan Green <n8thangreen@yahoo.co.uk>
Date: Sun, 15 Sep 2024 18:06:04 +0100
Subject: [PATCH] fix vector lambda bug

---
 R/stan_code_blocks.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/stan_code_blocks.R b/R/stan_code_blocks.R
index d16b755..617fa85 100644
--- a/R/stan_code_blocks.R
+++ b/R/stan_code_blocks.R
@@ -75,9 +75,7 @@ make_latent_model_code <- function(model, id = 1L) {
 
     scode$trans_params_main <-
       glue("lambda_{id} = exp(lp_{id});\n",
-           "if (lambda_{id} > 100) {{  // arbitrarily choose a reasonable upper bound\n",
-           "  lambda_{id} = 100;\n",
-           "}\n")
+           "lambda_{id} = min(lambda_{id}, 100);\n")
 
     scode$model <-
       glue("shape_{id} ~ gamma(a_shape_{id}, b_shape_{id});\n")