diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 22:08:12 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 22:08:12 +0100 |
| commit | b56c98398db6b85411cc262a835ed44224d066f3 (patch) | |
| tree | 97f864ba6c3d0c12693d8af40b1abe18e6a75687 /R/plot.gensvm.grid.R | |
| parent | Fixes to get the input data from the call (diff) | |
| download | rgensvm-b56c98398db6b85411cc262a835ed44224d066f3.tar.gz rgensvm-b56c98398db6b85411cc262a835ed44224d066f3.zip | |
Minor fixes
Diffstat (limited to 'R/plot.gensvm.grid.R')
| -rw-r--r-- | R/plot.gensvm.grid.R | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/R/plot.gensvm.grid.R b/R/plot.gensvm.grid.R index 6f042e9..abb0601 100644 --- a/R/plot.gensvm.grid.R +++ b/R/plot.gensvm.grid.R @@ -5,7 +5,6 @@ #' \code{\link{plot.gensvm}} for more information. #' #' @param grid A \code{gensvm.grid} object trained with refit=TRUE -#' @param x the dataset to plot #' @param ... further arguments are passed to the plot function #' #' @return returns the object passed as input @@ -32,12 +31,12 @@ #' grid <- gensvm.grid(x, y) #' plot(grid, x) #' -plot.gensvm.grid <- function(grid, x, ...) +plot.gensvm.grid <- function(grid, ...) { if (is.null(grid$best.estimator)) { cat("Error: Can't plot, the best.estimator element is NULL\n") return } fit <- grid$best.estimator - return(plot(fit, x, ...)) + return(plot(fit, ...)) } |