diff options
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) |