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…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user