From de17a6d755e9369a91abdb06562ee93d7b323bbd Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Wed, 4 Apr 2018 15:06:33 -0400
Subject: Adhere to generic function signatures

---
 R/fitted.gensvm.grid.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'R/fitted.gensvm.grid.R')

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, ...))
 }
-- 
cgit v1.2.3