From 89a37ec63fe27270e162bbf81f76eb38cd18dc6d Mon Sep 17 00:00:00 2001
From: Paul-Corbalan <58653590+Paul-Corbalan@users.noreply.github.com>
Date: Tue, 12 Apr 2022 18:28:04 +0200
Subject: [PATCH] Rename for LocalScoreMC

---
 Comparaison_of_methods.rmd | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Comparaison_of_methods.rmd b/Comparaison_of_methods.rmd
index 9039754..55c32f2 100644
--- a/Comparaison_of_methods.rmd
+++ b/Comparaison_of_methods.rmd
@@ -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")