From 6a660690401613a3afeb28537a29fc91f5612aa8 Mon Sep 17 00:00:00 2001
From: Paul-Corbalan <58653590+Paul-Corbalan@users.noreply.github.com>
Date: Tue, 19 Apr 2022 11:29:43 +0200
Subject: [PATCH] Add Elisa code

---
 Comparaison_of_methods.rmd | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/Comparaison_of_methods.rmd b/Comparaison_of_methods.rmd
index 315310e..29baa7e 100644
--- a/Comparaison_of_methods.rmd
+++ b/Comparaison_of_methods.rmd
@@ -272,6 +272,23 @@ ScoreDistribEmpiric <- function(lambda0, lambda1, n_sample, T){
 }
 ```
 
+```{r}
+lambda0=5
+lambda1=7
+distrib_mc=ScoreDistribEmpiric(lambda0,lambda1,10000,T)
+score_moyen=mean(distrib_mc[,1])
+print(score_moyen)
+score_max=max(distrib_mc[,1])
+print(score_max)
+score_min=min(distrib_mc[,1])
+print(score_min)
+amplitude=abs(score_max-score_min)
+print(amplitude)
+E=ComputeE(lambda0, lambda1)
+print(E)
+barplot(distrib_mc[,2])
+```
+
 ```{r}
 ScoreDistribElisa <- function(lambda0, lambda1, T){
     E = ComputeE(lambda0, lambda1)