From 2918b5ae04caccf6f63675584404abc8fa54433d Mon Sep 17 00:00:00 2001
From: rsetienne <rampaletienne@gmail.om>
Date: Tue, 16 Jul 2024 14:31:08 +0200
Subject: [PATCH] bug fix

---
 R/DAISIE_loglik_high_lambda.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/DAISIE_loglik_high_lambda.R b/R/DAISIE_loglik_high_lambda.R
index b6ab1ec9..a6d4606b 100644
--- a/R/DAISIE_loglik_high_lambda.R
+++ b/R/DAISIE_loglik_high_lambda.R
@@ -4,6 +4,7 @@ DAISIE_loglik_high_lambda <- function(pars1, brts, stac) {
      brts <- brts[-lbrts]
      lbrts <- length(brts)
    }
+   gam <- pars1[4]
    if (stac == 0) {
      out <- -gam * brts[1]
      return(out)
@@ -11,7 +12,6 @@ DAISIE_loglik_high_lambda <- function(pars1, brts, stac) {
    if (stac == 2 | stac == 6) {
      N <- lbrts - 1 - (stac == 6)
      mu <- pars1[2]
-     gam <- pars1[4]
      brtsdiff <- brts - c(brts[2:lbrts], 0)
      out <- -gam * brtsdiff[1] +
        log(gam) * (stac == 2) +