diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-04 15:07:00 -0400 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-04 15:07:00 -0400 |
| commit | 7a7d33171a3438f2ad3ee13eaff64fbca6d8dd13 (patch) | |
| tree | fc4411070b932800923f8bd92c4d2b2c39a8aa80 | |
| parent | Adhere to generic function signatures (diff) | |
| download | rgensvm-7a7d33171a3438f2ad3ee13eaff64fbca6d8dd13.tar.gz rgensvm-7a7d33171a3438f2ad3ee13eaff64fbca6d8dd13.zip | |
Fix for when colnames are NULL
| -rw-r--r-- | R/coef.gensvm.R | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/R/coef.gensvm.R b/R/coef.gensvm.R index f0369ee..3262833 100644 --- a/R/coef.gensvm.R +++ b/R/coef.gensvm.R @@ -42,7 +42,9 @@ coef.gensvm <- function(object, ...) { V <- object$V x <- eval.parent(object$call$x) - name <- c("translation", colnames(x)) - rownames(V) <- name + if (!is.null(colnames(x)) && length(colnames(x)) == dim(V)[1]) { + name <- c("translation", colnames(x)) + rownames(V) <- name + } return(V) } |