diff options
| -rw-r--r-- | R/plot.gensvm.R | 6 | ||||
| -rw-r--r-- | man/plot.gensvm.Rd | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/R/plot.gensvm.R b/R/plot.gensvm.R index 5c560e3..5bea7eb 100644 --- a/R/plot.gensvm.R +++ b/R/plot.gensvm.R @@ -20,7 +20,7 @@ #' @param ylim allows the user to force certain plot limits. If set, these #' bounds will be used for the vertical axis and the value of center.plot will #' be ignored -#' @param ... further arguments are ignored +#' @param ... further arguments are passed to the builtin plot() function #' #' @return returns the object passed as input #' @@ -151,10 +151,10 @@ plot.gensvm <- function(fit, x, y.true=NULL, with.margins=TRUE, if (is.null(ylim)) ylim <- c(min(min(S[, 2]), -0.75), max(max(S[, 2]), 1.2)) plot(S[, 1], S[, 2], col=col.vector, pch=mark.vector, ylab='', xlab='', - asp=1, xlim=xlim, ylim=ylim) + asp=1, xlim=xlim, ylim=ylim, ...) } else { plot(S[, 1], S[, 2], col=col.vector, pch=mark.vector, ylab='', - xlab='', asp=1, xlim=xlim, ylim=ylim) + xlab='', asp=1, xlim=xlim, ylim=ylim, ...) } limits <- par("usr") diff --git a/man/plot.gensvm.Rd b/man/plot.gensvm.Rd index 50870c0..a958c4d 100644 --- a/man/plot.gensvm.Rd +++ b/man/plot.gensvm.Rd @@ -33,7 +33,7 @@ bounds will be used for the horizontal axis.} bounds will be used for the vertical axis and the value of center.plot will be ignored} -\item{...}{further arguments are ignored} +\item{...}{further arguments are passed to the builtin plot() function} } \value{ returns the object passed as input |