aboutsummaryrefslogtreecommitdiff
path: root/R/coef.gensvm.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/coef.gensvm.R')
-rw-r--r--R/coef.gensvm.R3
1 files changed, 2 insertions, 1 deletions
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)
}