From 754faf74ac84cd278ded1c40d187b32dc1613b79 Mon Sep 17 00:00:00 2001
From: Paul-Corbalan <58653590+Paul-Corbalan@users.noreply.github.com>
Date: Sat, 7 May 2022 17:20:30 +0200
Subject: [PATCH] Change ScoreDistribElisa to ScoreDistribTheo

---
 Comparaison_of_methods.rmd | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Comparaison_of_methods.rmd b/Comparaison_of_methods.rmd
index 29baa7e..f225af4 100644
--- a/Comparaison_of_methods.rmd
+++ b/Comparaison_of_methods.rmd
@@ -290,7 +290,7 @@ barplot(distrib_mc[,2])
 ```
 
 ```{r}
-ScoreDistribElisa <- function(lambda0, lambda1, T){
+ScoreDistribTheo <- function(lambda0, lambda1, T){
     E = ComputeE(lambda0, lambda1)
 
     score_max = floor(E*log(lambda1/lambda0))
@@ -312,7 +312,7 @@ ScoreDistribElisa <- function(lambda0, lambda1, T){
 
 ```{r}
 distrib_score_mc = ScoreDistribEmpiric(2,3,10000,T)
-distrib_score_theo = ScoreDistribElisa(2,3,T)
+distrib_score_theo = ScoreDistribTheo(2,3,T)
 
 plot_graph_distrib_score <- function(distrib_score_theo, distrib_score_mc){
     # length(distrib_score_mc[,2])
@@ -419,7 +419,7 @@ for (lambda0 in (2)){
       #print(confusionMatrix(factor(LS_H0$class), factor(SS_H0$class)))
         
       #cat("- Elisa version:\n")
-      Score = ScoreDistribElisa(lambda0, lambda1, T)
+      Score = ScoreDistribTheo(lambda0, lambda1, T)
       Emp = EmpDistrib(lambda0,n_sample,T,tau)
 
       X_seq = Score$Score_X
@@ -506,7 +506,7 @@ for (i in (1:NbSeq)) {
       #print(confusionMatrix(factor(LS_H0$class), factor(SS_H0$class)))
         
       #cat("- Elisa version:\n")
-      Score = ScoreDistribElisa(lambda0, lambda1, T)
+      Score = ScoreDistribTheo(lambda0, lambda1, T)
       Emp = EmpDistrib(lambda0,n_sample,T,tau)
 
       X_seq = Score$Score_X