diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:36:06 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:36:06 +0100 |
| commit | d87788f7e37c3c63ed0ad06c65a602ab6b744dd1 (patch) | |
| tree | 571321ce3a055de8ef41a306c595a0f1f00406c9 /R/gensvm.grid.R | |
| parent | set feature names for coef result (diff) | |
| download | rgensvm-d87788f7e37c3c63ed0ad06c65a602ab6b744dd1.tar.gz rgensvm-d87788f7e37c3c63ed0ad06c65a602ab6b744dd1.zip | |
return invisibly
Diffstat (limited to 'R/gensvm.grid.R')
| -rw-r--r-- | R/gensvm.grid.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R index fa4f4fe..8f875a3 100644 --- a/R/gensvm.grid.R +++ b/R/gensvm.grid.R @@ -158,7 +158,7 @@ gensvm.grid <- function(X, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3, if (n.objects != length(y)) { cat("Error: X and y are not the same length.\n") - return(NULL) + invisible(NULL) } if (is.character(param.grid)) { @@ -173,7 +173,7 @@ gensvm.grid <- function(X, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3, # Validate the range of the values for the gridsearch if (!gensvm.validate.param.grid(param.grid)) - return(NULL) + invisible(NULL) # Sort the parameter grid for efficient warm starts param.grid <- gensvm.sort.param.grid(param.grid) |