Avoid nsample error

catavallejos · Mar 11, 2024 · aad1904 · aad1904 · alanocallaghan · Mar 11, 2024
1 parent 14bc635
commit aad1904
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/Methods.R b/R/Methods.R
@@ -159,6 +159,10 @@ setMethod("Summary",
       HPD[, 2:3] <- apply(n, 2, function(col) {
         if (na.rm) {
           col <- na.omit(col)
+          # avoid coda error for no samples
+          if (length(col) < 2) {
+            return(NA)
+          }
         }
         coda::HPDinterval(coda::mcmc(col), prob = prob)
       })