diff options
| -rw-r--r-- | R/gensvm.grid.R | 4 | ||||
| -rw-r--r-- | src/gensvm_wrapper.c | 5 |
2 files changed, 2 insertions, 7 deletions
diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R index 5fa026e..d4b06b5 100644 --- a/R/gensvm.grid.R +++ b/R/gensvm.grid.R @@ -208,8 +208,8 @@ gensvm.grid <- function(x, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3, as.integer(n.classes) ) - cv.results <- gensvm.cv.results(results, param.grid, cv.idx, - y.clean, scoring, + cv.results <- gensvm.cv.results(results, param.grid, cv.idx, y.clean, + scoring, return.train.score=return.train.score) best.index <- which.min(cv.results$rank.test.score)[1] diff --git a/src/gensvm_wrapper.c b/src/gensvm_wrapper.c index 275f797..29af56e 100644 --- a/src/gensvm_wrapper.c +++ b/src/gensvm_wrapper.c @@ -584,11 +584,6 @@ SEXP R_gensvm_grid( long *cv_idx = NULL; double val, total_time; - // Check input - if (df_cols < 9) { - // TODO: Raise error to R - } - // set verbosity _set_verbosity(verbosity); |