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)