diff options
Diffstat (limited to 'R/gensvm.grid.R')
| -rw-r--r-- | R/gensvm.grid.R | 3 |
1 files changed, 3 insertions, 0 deletions
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 |