From 685a25cbb195c8e96de8cb60e7f1a8930f04a516 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Wed, 28 Mar 2018 13:41:41 +0100
Subject: Add line stating refit is starting

---
 R/gensvm.grid.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R
index f954b79..92478c2 100644
--- a/R/gensvm.grid.R
+++ b/R/gensvm.grid.R
@@ -217,6 +217,9 @@ 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
+        if (verbose > 1)
+            cat("Refitting with best parameters ...\n")
         best.estimator <- do.call(gensvm, gensvm.args)
     } else {
         best.estimator <- NULL
-- 
cgit v1.2.3