diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:10:09 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:10:09 +0100 |
| commit | 53e00f6c97995779415f15855c8ddf6a3b1b822c (patch) | |
| tree | 81fdd3b5eca4cdf75890ce7be92d39e1ea7fa5cb | |
| parent | Update some return values (diff) | |
| download | rgensvm-53e00f6c97995779415f15855c8ddf6a3b1b822c.tar.gz rgensvm-53e00f6c97995779415f15855c8ddf6a3b1b822c.zip | |
Reduce verbosity for refit
| -rw-r--r-- | R/gensvm.grid.R | 2 |
1 files changed, 1 insertions, 1 deletions
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) |