From 45716e4d869af5da61677cc524da024f2573040d Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 30 Mar 2018 21:16:49 +0100
Subject: Get column names from x directly

---
 R/coef.gensvm.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/coef.gensvm.R b/R/coef.gensvm.R
index 60317aa..e34bba6 100644
--- a/R/coef.gensvm.R
+++ b/R/coef.gensvm.R
@@ -38,7 +38,8 @@
 coef.gensvm <- function(fit, ...)
 {
     V <- fit$V
-    name <- c("translation", fit$feature.names)
+    x <- eval.parent(fit$call$x)
+    name <- c("translation", colnames(x))
     rownames(V) <- name
     return(V)
 }
-- 
cgit v1.2.3