Update Comparaison_of_methods.rmd

2022-05-16 10:28:15 +02:00 · 2022-05-16 10:28:15 +02:00 · 8ef3ea88b5
parent 92c5d6e9a5
commit 8ef3ea88b5
1 changed files with 2 additions and 2 deletions
--- a/Comparaison_of_methods.rmd
+++ b/Comparaison_of_methods.rmd
@ -275,7 +275,7 @@ ScoreDistribEmpiric <- function(lambda0, lambda1, n_sample, T){
 ```

 ```{r}
-
+T=10
 lambda0=5
 lambda1=7
 distrib_mc=ScoreDistribEmpiric(lambda0,lambda1,10000,T)
@ -289,7 +289,7 @@ amplitude=abs(score_max-score_min)
 print(amplitude)
 E=ComputeE(lambda0, lambda1)
 print(E)
-barplot(distrib_mc[,2])
+barplot(distrib_mc[,2],names.arg=distrib_mc[,1])
 ```