diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 21:16:49 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 21:16:49 +0100 |
| commit | 45716e4d869af5da61677cc524da024f2573040d (patch) | |
| tree | 9c08e0f1b9949d425b4ae429e4916414e6673126 /R | |
| parent | return invisibly (diff) | |
| download | rgensvm-45716e4d869af5da61677cc524da024f2573040d.tar.gz rgensvm-45716e4d869af5da61677cc524da024f2573040d.zip | |
Get column names from x directly
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) } |