From 6529d39742e335039e3238b22c66eea8a69629ef Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 30 Mar 2018 17:25:47 +0100
Subject: set feature names for coef result

---
 R/coef.gensvm.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

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

diff --git a/R/coef.gensvm.R b/R/coef.gensvm.R
index 09febc2..60317aa 100644
--- a/R/coef.gensvm.R
+++ b/R/coef.gensvm.R
@@ -2,7 +2,7 @@
 #'
 #' @description Returns the model coefficients of the GenSVM object
 #'
-#' @param object a \code{gensvm} object
+#' @param fit a \code{gensvm} object
 #' @param \dots further arguments are ignored
 #'
 #' @return The coefficients of the GenSVM model. This is a matrix of size
@@ -35,7 +35,10 @@
 #' fit <- gensvm(x, y)
 #' V <- coef(fit)
 #'
-coef.gensvm <- function(object, ...)
+coef.gensvm <- function(fit, ...)
 {
-    return(object$V)
+    V <- fit$V
+    name <- c("translation", fit$feature.names)
+    rownames(V) <- name
+    return(V)
 }
-- 
cgit v1.2.3