replace cat by message in mcq.compute.anova

MCQR/R/mcq_compute_anova.R

@@ -195,7 +195,7 @@ setMethod("mcqComputeAnova", signature(object="cmcq.protq.spectralcounting", fli
 		env$count  <- 0
 # 		assign("error_prot", TRUE, env=env)
 # 		assign()
-		cat("Warning on GLM", file=warningGLM, sep="\n")
+		message("Warning on GLM", file=warningGLM)
 		myglm = function(x, env, warningGLM){
 			tryCatch({
 				myprot <- unique(x$accession)
@@ -539,7 +539,7 @@ setMethod("mcqComputeAnova", signature(object='cmcq.pepq.ratio.with.ref', flist=
   ni <- priv.verify.reporducibility.validity(ni, flist, "peptiz")
   ## test algo michel based on rbind of list
   tempNi <- split(ni, ni$peptiz)
-  cat("Computing Anova\n")
+  message("Computing Anova")
   env = new.env()
   env$resultmodel <-  list()
   env$errorList <- c()
@@ -571,7 +571,7 @@ setMethod("mcqComputeAnova", signature(object='cmcq.pepq.ratio.with.ref', flist=
   }
   ## Computing anova in lapply
   resultanov <- lapply(tempNi, myanova, env)
-  cat(paste0(" ", length(tempNi), " peptides-z.\n"))
+  message(" ", length(tempNi), " peptides-z")
   resultmodel <- env$resultmodel
   errorList <- env$resultList
   if(env$count == 0){