From 903aeef4c6e12e2a02a8d9a16e94f5b99ee443c9 Mon Sep 17 00:00:00 2001
From: Louis Lacoste <louis.lacoste@hotmail.fr>
Date: Tue, 23 Apr 2024 17:08:45 +0200
Subject: [PATCH] Ajout d'un fichier d'investigation du prob de double ARI

---
 .../invest_inference_bernoulli_double_ARI.Rmd            | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 code/analysis/investigating/invest_inference_bernoulli_double_ARI.Rmd

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