From fb7958adae7a1e0ec51bc364dd6e6477bffb5b76 Mon Sep 17 00:00:00 2001
From: Paul-Corbalan <58653590+Paul-Corbalan@users.noreply.github.com>
Date: Tue, 15 Mar 2022 10:48:14 +0100
Subject: [PATCH] Renorme probas s

---
 Dataset_study.rmd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Dataset_study.rmd b/Dataset_study.rmd
index b3bbb87..d26ea42 100644
--- a/Dataset_study.rmd
+++ b/Dataset_study.rmd
@@ -315,10 +315,11 @@ for (lambda0 in c(5,50,500,5000,50000) ) {
     B=A*log(lambda1/lambda0)
     
     probaS=floor(E*lambda0*exp(-lambda0*(A*x[j]-B)))
-    print(S) 
+    # print(s) 
     probaS_vect[j]=probaS
   }
   
+probaS_vect = probaS_vect/sum(probaS_vect)
 print(probaS_vect)
 p <- barplot(probaS_vect, main=str_c("lambda0=", as.character(lambda0), "et", "lambda1=", as.character(lambda1), sep=" "  ))
 p