From 932c8e78761708c1c03df690476d34c7a920f374 Mon Sep 17 00:00:00 2001
From: Paul-Corbalan <58653590+Paul-Corbalan@users.noreply.github.com>
Date: Wed, 13 Apr 2022 09:15:34 +0200
Subject: [PATCH] Add Confusion Matrix to Experience plan

---
 Comparaison_of_methods.rmd | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/Comparaison_of_methods.rmd b/Comparaison_of_methods.rmd
index c9eaab0..21dfef3 100644
--- a/Comparaison_of_methods.rmd
+++ b/Comparaison_of_methods.rmd
@@ -10,6 +10,7 @@ output: pdf_document
 library("localScore")
 library("latex2exp")
 library("Rcpp")
+library("caret")
 ```
 
 ## 1. Proposition for simulations under $\mathcal{H}_1$
@@ -345,6 +346,8 @@ for (lambda0 in (2:5)){
             print(summary(LS_H0))
             cat("Scan Statistics:\n")
             print(summary(SS_H0))
+            cat("Confusion Matrix:\n")
+            print(confusionMatrix(factor(LS_H0$class), factor(SS_H0$class)))
             
             cat("- Elisa version:\n")
             Score = ScoreDistribElisa(lambda0, lambda1, T)
@@ -360,14 +363,10 @@ for (lambda0 in (2:5)){
             print(summary(LS_H0))
             cat("Scan Statistics:\n")
             print(summary(SS_H0))
+            cat("Confusion Matrix:\n")
+            print(confusionMatrix(factor(LS_H0$class), factor(SS_H0$class)))
             cat("---\n")
         }
     }
 }
 ```
-
-Test `confusionMatrix`
-```{r}
-library(caret)
-confusionMatrix(factor(LS_H0$class), factor(SS_H0$class))
-```