diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-28 13:41:41 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-28 13:41:41 +0100 |
| commit | 685a25cbb195c8e96de8cb60e7f1a8930f04a516 (patch) | |
| tree | aff59783efb798c6279f65b06ec2e74d2c81ce16 /R | |
| parent | Validate params in gensvm() function (diff) | |
| download | rgensvm-685a25cbb195c8e96de8cb60e7f1a8930f04a516.tar.gz rgensvm-685a25cbb195c8e96de8cb60e7f1a8930f04a516.zip | |
Add line stating refit is starting
Diffstat (limited to '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 |