From 26457e4b0c6bc8e8db1e79832f35f16a1b718f5b Mon Sep 17 00:00:00 2001
From: jgabry <jgabry@gmail.com>
Date: Thu, 1 Feb 2024 14:00:47 -0700
Subject: [PATCH 1/2] Compatibility with next loo package release

---
 R/find_regimes.R | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/R/find_regimes.R b/R/find_regimes.R
index 204acf2..ada3f08 100644
--- a/R/find_regimes.R
+++ b/R/find_regimes.R
@@ -33,8 +33,14 @@ find_regimes <- function(y,
       chains = chains, ...
     )
     looic <- loo.bayesdfa(fit)
-    loo_bad <- loo::pareto_k_table(looic)["(0.7, 1]", "Count"]
-    loo_very_bad <- loo::pareto_k_table(looic)["(1, Inf)", "Count"]
+    k_table <- loo::pareto_k_table(looic)
+    if (utils::packageVersion("loo") <= "2.6.0") {
+      loo_bad <- k_table["(0.7, 1]", "Count"]
+      loo_very_bad <- k_table["(1, Inf)", "Count"]
+    } else {
+      loo_bad <- k_table[2, "Count"]
+      loo_very_bad <- k_table[3, "Count"]
+    }
     df$looic[which(df$regimes == regime)] <- looic$estimates["looic", "Estimate"]
 
     if (fit$looic < best_loo) {

From f673db3ba87453907389522bfa7a63910b59fa7d Mon Sep 17 00:00:00 2001
From: jgabry <jgabry@gmail.com>
Date: Thu, 1 Feb 2024 14:24:56 -0700
Subject: [PATCH 2/2] Update find_regimes.R

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

diff --git a/R/find_regimes.R b/R/find_regimes.R
index ada3f08..db000cd 100644
--- 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 {