paul-corbalan/Scan-Statistics-Project-4Y-INSA
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Change ScoreDistribElisa to ScoreDistribTheo

Browse Source
This commit is contained in:
Paul-Corbalan 2022-05-07 17:20:30 +02:00
parent 6a66069040
commit 754faf74ac
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Comparaison_of_methods.rmd
View File

@ -290,7 +290,7 @@ barplot(distrib_mc[,2])
```
```{r}
ScoreDistribElisa <- function(lambda0, lambda1, T){
ScoreDistribTheo <- function(lambda0, lambda1, T){
E = ComputeE(lambda0, lambda1)
score_max = floor(E*log(lambda1/lambda0))
@ -312,7 +312,7 @@ ScoreDistribElisa <- function(lambda0, lambda1, T){
```{r}
distrib_score_mc = ScoreDistribEmpiric(2,3,10000,T)
distrib_score_theo = ScoreDistribElisa(2,3,T)
distrib_score_theo = ScoreDistribTheo(2,3,T)
plot_graph_distrib_score <- function(distrib_score_theo, distrib_score_mc){
# length(distrib_score_mc[,2])
@ -419,7 +419,7 @@ for (lambda0 in (2)){
#print(confusionMatrix(factor(LS_H0$class), factor(SS_H0$class)))
#cat("- Elisa version:\n")
Score = ScoreDistribElisa(lambda0, lambda1, T)
Score = ScoreDistribTheo(lambda0, lambda1, T)
Emp = EmpDistrib(lambda0,n_sample,T,tau)
X_seq = Score$Score_X
@ -506,7 +506,7 @@ for (i in (1:NbSeq)) {
#print(confusionMatrix(factor(LS_H0$class), factor(SS_H0$class)))
#cat("- Elisa version:\n")
Score = ScoreDistribElisa(lambda0, lambda1, T)
Score = ScoreDistribTheo(lambda0, lambda1, T)
Emp = EmpDistrib(lambda0,n_sample,T,tau)
X_seq = Score$Score_X