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/fitted.gensvm.grid.R | |
| parent | Add importFrom statements (diff) | |
| download | rgensvm-de17a6d755e9369a91abdb06562ee93d7b323bbd.tar.gz rgensvm-de17a6d755e9369a91abdb06562ee93d7b323bbd.zip | |
Adhere to generic function signatures
Diffstat (limited to 'R/fitted.gensvm.grid.R')
| -rw-r--r-- | R/fitted.gensvm.grid.R | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/R/fitted.gensvm.grid.R b/R/fitted.gensvm.grid.R index c6887c0..f24ec64 100644 --- a/R/fitted.gensvm.grid.R +++ b/R/fitted.gensvm.grid.R @@ -3,7 +3,7 @@ #' @description Wrapper to get the fitted class labels from the best estimator #' of the fitted GenSVMGrid model. Only works if refit was enabled. #' -#' @param grid A \code{gensvm.grid} object +#' @param object A \code{gensvm.grid} object #' @param \dots further arguments are passed to fitted #' #' @return a vector of class labels, with the same type as the original class @@ -22,8 +22,9 @@ #' \code{\link{plot.gensvm}}, \code{\link{predict.gensvm.grid}}, #' \code{\link{gensvm}}, \code{\link{gensvm-package}} #' +#' @method fitted gensvm.grid +#' #' @export -#' @aliases fitted #' #' @examples #' x <- iris[, -5] @@ -36,7 +37,7 @@ #' # compute the accuracy with gensvm.accuracy #' gensvm.accuracy(y, yhat) #' -fitted.gensvm.grid <- function(grid, ...) +fitted.gensvm.grid <- function(object, ...) { - return(predict(grid, ...)) + return(predict(object, ...)) } |