Allow for multiple distributions

robjhyndman · Nov 13, 2024 · 3312024 · 3312024
1 parent 1850e02
commit 3312024
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/surprisals.R b/R/surprisals.R
@@ -106,7 +106,7 @@ surprisals.default <- function(
     den <- den[[1]]
   }
   scores <- -den
-  if (loo & stats::family(distribution) == "kde") {
+  if (loo & all(stats::family(distribution) == "kde")) {
     n <- NROW(object)
     d <- NCOL(object)
     if (d == 1L) {