diff --git a/R/kfino.R b/R/kfino.R
index 2291d883ae2197065f4a705d3a88f47957911dfa..4821c6e1a596b75b5e650b70cd192169105f688f 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,