From 65e434c94b5f2dca2d47366319aebcf920523b4a Mon Sep 17 00:00:00 2001
From: Christoph Sax <christoph.sax@gmail.com>
Date: Mon, 3 Nov 2025 22:21:03 +0100
Subject: [PATCH] Use determinant(vcov, logarithm = TRUE)$modulus

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

diff --git a/R/td.calc.R b/R/td.calc.R
index 367d523..ca16df7 100644
--- a/R/td.calc.R
+++ b/R/td.calc.R
@@ -206,7 +206,7 @@ CalcGLS <- function(y, X, vcov, logl = TRUE, stats = TRUE) {
     z$s_2 <- z$rss / m
     u_l <- y - X %*% z$coefficients
     z$logl <- as.numeric(-m / 2 - m * log(2 * pi) / 2 - m * log(z$s_2) /
-      2 - log(det(vcov)) / 2)
+      2 - determinant(vcov, logarithm = TRUE)$modulus / 2)
   }
 
   if (stats) {