From 935a03b02a17c7a47b1e074903fc85e64d938fe6 Mon Sep 17 00:00:00 2001 From: Gertjan van den Burg Date: Fri, 30 Mar 2018 10:20:14 +0100 Subject: pass further arguments to plot function --- R/plot.gensvm.R | 6 +++--- 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 -- cgit v1.2.3