From e0c29e46403469ea6ad554607bbe62c5108e767f Mon Sep 17 00:00:00 2001
From: n-kall <n-kall@github.com>
Date: Tue, 9 Jan 2024 15:05:50 +0200
Subject: [PATCH] fix to log weight smoothing

---
 R/pareto_smooth.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/pareto_smooth.R b/R/pareto_smooth.R
index 7da95a7..a0bb848 100644
--- a/R/pareto_smooth.R
+++ b/R/pareto_smooth.R
@@ -138,7 +138,7 @@ pareto_diags.default <- function(x,
     extra_diags = TRUE,
     verbose = verbose,
     smooth_draws = FALSE,
-    are_log_weights = FALSE,
+    are_log_weights = are_log_weights,
     ...)
 
   return(smoothed$diagnostics)
@@ -337,6 +337,7 @@ pareto_smooth.default <- function(x,
       x,
       ndraws_tail = ndraws_tail,
       tail = tail,
+      are_log_weights = are_log_weights,
       ...
     )
     k <- smoothed$k