diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-04 15:06:33 -0400 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-04-04 15:06:33 -0400 |
| commit | de17a6d755e9369a91abdb06562ee93d7b323bbd (patch) | |
| tree | cbede010da1046ee6627143aa0e41d8ec0fbb09e /R/coef.gensvm.R | |
| parent | Add importFrom statements (diff) | |
| download | rgensvm-de17a6d755e9369a91abdb06562ee93d7b323bbd.tar.gz rgensvm-de17a6d755e9369a91abdb06562ee93d7b323bbd.zip | |
Adhere to generic function signatures
Diffstat (limited to 'R/coef.gensvm.R')
| -rw-r--r-- | R/coef.gensvm.R | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/R/coef.gensvm.R b/R/coef.gensvm.R index 8f60fd4..f0369ee 100644 --- a/R/coef.gensvm.R +++ b/R/coef.gensvm.R @@ -2,7 +2,7 @@ #' #' @description Returns the model coefficients of the GenSVM object #' -#' @param fit a \code{gensvm} object +#' @param object a \code{gensvm} object #' @param \dots further arguments are ignored #' #' @return The coefficients of the GenSVM model. This is a matrix of size @@ -38,10 +38,10 @@ #' fit <- gensvm(x, y) #' V <- coef(fit) #' -coef.gensvm <- function(fit, ...) +coef.gensvm <- function(object, ...) { - V <- fit$V - x <- eval.parent(fit$call$x) + V <- object$V + x <- eval.parent(object$call$x) name <- c("translation", colnames(x)) rownames(V) <- name return(V) |