diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-03 23:55:11 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-03 23:55:11 +0100 |
| commit | 51209aa583d8f9bc701fd21937396798d7430bb3 (patch) | |
| tree | 136c6af421efc9cffbef053c088fdef89588becd | |
| parent | Roxygen update (diff) | |
| download | rgensvm-51209aa583d8f9bc701fd21937396798d7430bb3.tar.gz rgensvm-51209aa583d8f9bc701fd21937396798d7430bb3.zip | |
Remove todo item from wrapper
| -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); |