From 53e00f6c97995779415f15855c8ddf6a3b1b822c Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 30 Mar 2018 17:10:09 +0100
Subject: Reduce verbosity for refit

---
 R/gensvm.grid.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R
index 6db768c..fa4f4fe 100644
--- a/R/gensvm.grid.R
+++ b/R/gensvm.grid.R
@@ -227,7 +227,7 @@ gensvm.grid <- function(X, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3,
         gensvm.args <- as.list(best.params)
         gensvm.args$X <- X
         gensvm.args$y <- y
-        gensvm.args$verbose <- verbose
+        gensvm.args$verbose <- if(verbose>1) 1 else 0
         if (verbose > 1)
             cat("Refitting with best parameters ...\n")
         best.estimator <- do.call(gensvm, gensvm.args)
-- 
cgit v1.2.3