From 18dc50fa3fc79317b26869de5c8e903c817f7289 Mon Sep 17 00:00:00 2001
From: Paul-Corbalan <58653590+Paul-Corbalan@users.noreply.github.com>
Date: Tue, 12 Apr 2022 18:06:30 +0200
Subject: [PATCH] Minor issue with ScoreDistribEmpiric solve

---
 Comparaison_of_methods.rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Comparaison_of_methods.rmd b/Comparaison_of_methods.rmd
index d5fa3f9..12300c6 100644
--- a/Comparaison_of_methods.rmd
+++ b/Comparaison_of_methods.rmd
@@ -239,7 +239,7 @@ ScoreDistribEmpiric <- function(lambda0, lambda1, n_sample, T){
     min_X = min(Score)
     max_X = max(Score)
 
-    P_X = table(factor(Score, levels = min_X:max_X))/sum(table(Score)).Freq
+    P_X = table(factor(Score, levels = min_X:max_X))/sum(table(Score))
     df = data.frame("Score_X" = min(Score):max(Score), "P_X" = P_X)
     df <- df[,-2]