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

Rename for LocalScoreMC

This commit is contained in:
Paul-Corbalan 2022-04-12 18:28:04 +02:00
parent e5b5d717d9
commit 89a37ec63f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Comparaison_of_methods.rmd
View File

@ -288,7 +288,7 @@ ScoreDistribElisa <- function(lambda0, lambda1, T){
### Local score calculation ### Local score calculation
```{r} ```{r}
LocaScoreMC <- function(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0){ LocalScoreMC <- function(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0){
E = ComputeE(lambda0, lambda1) E = ComputeE(lambda0, lambda1)
pvalue = c() pvalue = c()
@ -338,7 +338,7 @@ for (lambda0 in (2:5)){
X_seq = Score$Score_X X_seq = Score$Score_X
P_X = Score$P_X P_X = Score$P_X
LS_H0 = LocaScoreMC(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0) LS_H0 = LocalScoreMC(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0)
SS_H0 = ScanStatMC(NbSeq, T, tau, Emp, pp0) SS_H0 = ScanStatMC(NbSeq, T, tau, Emp, pp0)
cat("Local Score:\n") cat("Local Score:\n")
@ -353,7 +353,7 @@ for (lambda0 in (2:5)){
X_seq = Score$Score_X X_seq = Score$Score_X
P_X = Score$P_X P_X = Score$P_X
LS_H0 = LocaScoreMC(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0) LS_H0 = LocalScoreMC(lambda0, lambda1, NbSeq, T, X_seq, P_X, tbe0)
SS_H0 = ScanStatMC(NbSeq, T, tau, Emp, pp0) SS_H0 = ScanStatMC(NbSeq, T, tau, Emp, pp0)
cat("Local Score:\n") cat("Local Score:\n")