Update Comparaison_of_methods.rmd
This commit is contained in:
parent
e97a6cb5e8
commit
be2006008a
|
@ -279,9 +279,11 @@ ScoreDistribEmpiric <- function(lambda0, lambda1, n_sample, T){
|
||||||
```
|
```
|
||||||
|
|
||||||
```{r}
|
```{r}
|
||||||
|
|
||||||
T=10
|
T=10
|
||||||
lambda0=5
|
lambda0=5
|
||||||
lambda1=7
|
lambda1=7
|
||||||
|
|
||||||
distrib_mc=ScoreDistribEmpiric(lambda0,lambda1,10000,T)
|
distrib_mc=ScoreDistribEmpiric(lambda0,lambda1,10000,T)
|
||||||
score_moyen=mean(distrib_mc[,1])
|
score_moyen=mean(distrib_mc[,1])
|
||||||
print(score_moyen)
|
print(score_moyen)
|
||||||
|
|
Loading…
Reference in New Issue