From a3b38f3092c61bfc098ac573c881d58549c964ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Paul-Christian=20B=C3=BCrkner?= <paul.buerkner@gmail.com>
Date: Thu, 12 Sep 2024 11:07:58 +0200
Subject: [PATCH] fix issue #1634

---
 R/brm.R             | 1 +
 R/stan-predictor.R  | 2 +-
 man/brm.Rd          | 1 +
 man/brm_multiple.Rd | 1 +
 4 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/R/brm.R b/R/brm.R
index 360296318..fd7409adc 100644
--- a/R/brm.R
+++ b/R/brm.R
@@ -164,6 +164,7 @@
 #'   variational inference with independent normal distributions,
 #'   \code{"fullrank"} for variational inference with a multivariate normal
 #'   distribution, \code{"pathfinder"} for the pathfinder algorithm,
+#'   \code{"laplace"} for the laplace approximation,
 #'   or \code{"fixed_param"} for sampling from fixed parameter
 #'   values. Can be set globally for the current \R session via the
 #'   \code{"brms.algorithm"} option (see \code{\link{options}}).
diff --git a/R/stan-predictor.R b/R/stan-predictor.R
index 9968f72c1..78365993b 100644
--- a/R/stan-predictor.R
+++ b/R/stan-predictor.R
@@ -2039,7 +2039,7 @@ stan_eta_combine <- function(bframe, out, threads, primitive, ...) {
   out$loopeta <- NULL
   # some links need custom Stan functions
   link <- bframe$family$link
-  link_names <- c("cauchit", "cloglog", "softplus", "squareplus", "softit")
+  link_names <- c("cauchit", "cloglog", "softplus", "squareplus", "softit", "tan_half")
   needs_link_fun <- isTRUE(link %in% link_names)
   if (needs_link_fun) {
     str_add(out$fun) <- glue("  #include 'fun_{link}.stan'\n")
diff --git a/man/brm.Rd b/man/brm.Rd
index 86ff43222..2724e76f8 100644
--- a/man/brm.Rd
+++ b/man/brm.Rd
@@ -234,6 +234,7 @@ Options are \code{"sampling"} for MCMC (the default), \code{"meanfield"} for
 variational inference with independent normal distributions,
 \code{"fullrank"} for variational inference with a multivariate normal
 distribution, \code{"pathfinder"} for the pathfinder algorithm,
+\code{"laplace"} for the laplace approximation,
 or \code{"fixed_param"} for sampling from fixed parameter
 values. Can be set globally for the current \R session via the
 \code{"brms.algorithm"} option (see \code{\link{options}}).}
diff --git a/man/brm_multiple.Rd b/man/brm_multiple.Rd
index 938cc1391..e6070ae3c 100644
--- a/man/brm_multiple.Rd
+++ b/man/brm_multiple.Rd
@@ -143,6 +143,7 @@ Options are \code{"sampling"} for MCMC (the default), \code{"meanfield"} for
 variational inference with independent normal distributions,
 \code{"fullrank"} for variational inference with a multivariate normal
 distribution, \code{"pathfinder"} for the pathfinder algorithm,
+\code{"laplace"} for the laplace approximation,
 or \code{"fixed_param"} for sampling from fixed parameter
 values. Can be set globally for the current \R session via the
 \code{"brms.algorithm"} option (see \code{\link{options}}).}