From b7a63527991cce68daa984f36088f23cf7d1a199 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Tue, 3 Apr 2018 19:41:35 -0400
Subject: fix for weights in refit

---
 R/gensvm.grid.R | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'R/gensvm.grid.R')

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
-- 
cgit v1.2.3