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 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'R') 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") -- cgit v1.2.3