diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:08:49 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:08:49 +0100 |
| commit | 937772ceb77f3213119d736da8e2fad620d16add (patch) | |
| tree | 2029365faa0e74d4c85e4c51d95548e145a67bfe /R/gensvm.grid.R | |
| parent | pass further arguments to plot function (diff) | |
| download | rgensvm-937772ceb77f3213119d736da8e2fad620d16add.tar.gz rgensvm-937772ceb77f3213119d736da8e2fad620d16add.zip | |
Update some return values
Diffstat (limited to 'R/gensvm.grid.R')
| -rw-r--r-- | R/gensvm.grid.R | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R index 613b718..6db768c 100644 --- a/R/gensvm.grid.R +++ b/R/gensvm.grid.R @@ -156,6 +156,11 @@ gensvm.grid <- function(X, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3, n.features <- ncol(X) n.classes <- length(unique(y)) + if (n.objects != length(y)) { + cat("Error: X and y are not the same length.\n") + return(NULL) + } + if (is.character(param.grid)) { if (param.grid == 'tiny') { param.grid <- gensvm.load.tiny.grid() |