Update find_regimes.R

fate-ewi · Feb 1, 2024 · f673db3 · f673db3
1 parent 26457e4
commit f673db3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/find_regimes.R b/R/find_regimes.R
@@ -34,7 +34,7 @@ find_regimes <- function(y,
     )
     looic <- loo.bayesdfa(fit)
     k_table <- loo::pareto_k_table(looic)
-    if (utils::packageVersion("loo") <= "2.6.0") {
+    if (nrow(k_table) == 4) {
       loo_bad <- k_table["(0.7, 1]", "Count"]
       loo_very_bad <- k_table["(1, Inf)", "Count"]
     } else {