diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/coef.gensvm.R | 3 |
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) } |
