diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:25:47 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 17:25:47 +0100 |
| commit | 6529d39742e335039e3238b22c66eea8a69629ef (patch) | |
| tree | 2cd5c5563ec234042c3f48df40160cc390889c73 /R/gensvm.R | |
| parent | Add plot function for binary data (diff) | |
| download | rgensvm-6529d39742e335039e3238b22c66eea8a69629ef.tar.gz rgensvm-6529d39742e335039e3238b22c66eea8a69629ef.zip | |
set feature names for coef result
Diffstat (limited to 'R/gensvm.R')
| -rw-r--r-- | R/gensvm.R | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -182,7 +182,8 @@ gensvm <- function(X, y, p=1.0, lambda=1e-8, kappa=0.0, epsilon=1e-6, classes = classes, V = out$V, n.iter = out$n.iter, n.support = out$n.support, training.time = out$training.time, - X.train = if(kernel == 'linear') NULL else X) + X.train = if(kernel == 'linear') NULL else X, + feature.names = colnames(X)) class(object) <- "gensvm" return(object) |