diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-03 19:41:35 -0400 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-03 19:41:35 -0400 |
| commit | b7a63527991cce68daa984f36088f23cf7d1a199 (patch) | |
| tree | ed995adb80a38853faa50761f8f0b85ba32774e9 | |
| parent | Remove todo item from wrapper (diff) | |
| download | rgensvm-b7a63527991cce68daa984f36088f23cf7d1a199.tar.gz rgensvm-b7a63527991cce68daa984f36088f23cf7d1a199.zip | |
fix for weights in refit
| -rw-r--r-- | R/gensvm.R | 2 | ||||
| -rw-r--r-- | R/gensvm.grid.R | 5 |
2 files changed, 6 insertions, 1 deletions
@@ -169,7 +169,7 @@ gensvm <- function(x, y, p=1.0, lambda=1e-8, kappa=0.0, epsilon=1e-6, lambda, kappa, epsilon, - weight.idx, + as.integer(weight.idx), raw.weights, as.integer(kernel.idx), gamma, diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R index d4b06b5..62add19 100644 --- a/R/gensvm.grid.R +++ b/R/gensvm.grid.R @@ -225,6 +225,11 @@ gensvm.grid <- function(x, y, param.grid='tiny', refit=TRUE, scoring=NULL, cv=3, if (refit && !is.na(best.index)) { gensvm.args <- as.list(best.params) + # Stupid factors... + if ("weights" %in% names(gensvm.args)) + gensvm.args$weights <- as.character(gensvm.args$weights) + if ("kernel" %in% names(gensvm.args)) + gensvm.args$kernel <- as.character(gensvm.args$kernel) gensvm.args$x <- x gensvm.args$y <- y gensvm.args$verbose <- if(verbose>1) 1 else 0 |