diff --git a/code/analysis/investigating/invest_inference_bernoulli_double_ARI.Rmd b/code/analysis/investigating/invest_inference_bernoulli_double_ARI.Rmd
new file mode 100644
index 0000000..0a7e782
--- /dev/null
+++ b/code/analysis/investigating/invest_inference_bernoulli_double_ARI.Rmd
@@ -0,0 +1,9 @@
+```{r, echo = FALSE}
+data <- readRDS("code/results//simulations/inference//bernoulli/bernoulli_inference_18-04-2024_09-41-45_1-972.Rds")
+
+prob_data <- data[which((data$pirho_double_row_ARI < 1 | data$pirho_double_col_ARI < 1)&(data$pirho_mean_row_ARI == 1 & data$pirho_mean_col_ARI == 1)),]
+```
+
+```{r , echo = FALSE}
+knitr::kable(prob_data)
+```
\ No newline at end of file