diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 10:20:14 +0100 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2018-03-30 10:20:14 +0100 |
| commit | 935a03b02a17c7a47b1e074903fc85e64d938fe6 (patch) | |
| tree | 9597a2e70d4036afab7448f81164e4e10332af8e /R | |
| parent | version bump (diff) | |
| download | rgensvm-935a03b02a17c7a47b1e074903fc85e64d938fe6.tar.gz rgensvm-935a03b02a17c7a47b1e074903fc85e64d938fe6.zip | |
pass further arguments to plot function
Diffstat (limited to 'R')
| -rw-r--r-- | R/plot.gensvm.R | 6 |
1 files changed, 3 insertions, 3 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") |