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

View File

@ -288,7 +288,7 @@ ScoreDistribElisa <- function(lambda0, lambda1, T){
### Local score calculation
```{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)
pvalue = c()
@ -338,7 +338,7 @@ for (lambda0 in (2:5)){
X_seq = Score$Score_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)
cat("Local Score:\n")
@ -353,7 +353,7 @@ for (lambda0 in (2:5)){
X_seq = Score$Score_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)
cat("Local Score:\n")