From 88247946b5a7e1234248ef0101198353eb481d82 Mon Sep 17 00:00:00 2001
From: unknown <isabelle.sanchez@inra.fr>
Date: Fri, 6 May 2022 13:52:00 +0200
Subject: [PATCH] =?UTF-8?q?supprime=20message=20inutile=20pour=20r=C3=A9su?=
=?UTF-8?q?ltats=20EM?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/kfino.R | 4 ----
1 file changed, 4 deletions(-)
diff --git a/R/kfino.R b/R/kfino.R
index 2291d88..4821c6e 100644
--- a/R/kfino.R
+++ b/R/kfino.R
@@ -289,7 +289,6 @@ kfino_fit<-function(datain,Tvar,Yvar,
mmopt=quantile(Y[(3*N/4):N], probs = c(.5))
cat("range m0: ",bornem0,"\n")
cat("initial m0opt: ",m0opt,"\n")
- cat("initial mmopt: ",mmopt,"\n")
popt=0.5
# 1er tour
@@ -331,9 +330,7 @@ kfino_fit<-function(datain,Tvar,Yvar,
}
V=Res_EM$likelihood
- #print(V)
print(m0_tmp)
- print(m_tmp)
if (V > Vopt){
print("EM converged.")
Vopt=V
@@ -345,7 +342,6 @@ kfino_fit<-function(datain,Tvar,Yvar,
print("Optimised parameters with EM method: ")
cat("Optimized m0: ",m0opt,"\n")
- cat("Optimized mm: ",mmopt,"\n")
cat("Optimized pp: ",popt,"\n")
print("-------:")
resultat=KBO_known(param=list(mm=mmopt,
--
GitLab