[Robast-commits] r859 - branches/robast-1.0/pkg/RobAStBase/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2015-11-07 11:44:42 +0100 (Sat, 07 Nov 2015)
New Revision: 859

Modified:
   branches/robast-1.0/pkg/RobAStBase/R/ddPlot.R
Log:
RobAStBase: ddPlot: unified argument names (jitter)

Modified: branches/robast-1.0/pkg/RobAStBase/R/ddPlot.R
===================================================================
--- branches/robast-1.0/pkg/RobAStBase/R/ddPlot.R	2015-11-07 10:39:43 UTC (rev 858)
+++ branches/robast-1.0/pkg/RobAStBase/R/ddPlot.R	2015-11-07 10:44:42 UTC (rev 859)
@@ -3,7 +3,7 @@
        cutoff.x, cutoff.y, ...,
        cutoff.quantile.x = 0.95, cutoff.quantile.y = cutoff.quantile.x,
        transform.x, transform.y = transform.x,
-       id.n, cex.pts = 1,lab.pts, jitt.pts = 0, alpha.trsp = NA, adj =0, cex.idn,
+       id.n, cex.pts = 1,lab.pts, jit.pts = 0, alpha.trsp = NA, adj =0, cex.idn,
        col.idn, lty.cutoff, lwd.cutoff, col.cutoff, text.abline = TRUE,
        text.abline.x = NULL, text.abline.y = NULL,
        cex.abline = par("cex"), col.abline = col.cutoff,
@@ -12,7 +12,7 @@
        text.abline.y.x = NULL, text.abline.y.y = NULL,
        text.abline.x.fmt.cx = "%7.2f", text.abline.x.fmt.qx = "%4.2f%%",
        text.abline.y.fmt.cy = "%7.2f", text.abline.y.fmt.qy = "%4.2f%%",
-       jitt.fac, doplot = TRUE){
+       jit.fac, jit.tol = .Machine$double.eps,doplot = TRUE){
        mc <- as.list(match.call(expand.dots = TRUE, 
                                 call = sys.call(sys.parent(1)))[-1])
        mc$data <- data
@@ -24,7 +24,7 @@
        cutoff.x, cutoff.y, ...,
        cutoff.quantile.x = 0.95, cutoff.quantile.y = cutoff.quantile.x,
        transform.x, transform.y = transform.x,
-       id.n, cex.pts = 1,lab.pts, jitt.pts = 0, alpha.trsp = NA, adj =0, cex.idn,
+       id.n, cex.pts = 1,lab.pts, jit.pts = 0, alpha.trsp = NA, adj =0, cex.idn,
        col.idn, lty.cutoff, lwd.cutoff, col.cutoff, text.abline = TRUE,
        text.abline.x = NULL, text.abline.y = NULL,
        cex.abline = par("cex"), col.abline = col.cutoff,
@@ -33,7 +33,7 @@
        text.abline.y.x = NULL, text.abline.y.y = NULL,
        text.abline.x.fmt.cx = "%7.2f", text.abline.x.fmt.qx = "%4.2f%%",
        text.abline.y.fmt.cy = "%7.2f", text.abline.y.fmt.qy = "%4.2f%%",
-       jitt.fac, doplot = TRUE){
+       jit.fac, jit.tol = .Machine$double.eps,doplot = TRUE){
 
          mc <- match.call(call = sys.call(sys.parent(1)))
          mc$data <- t(as.matrix(data))
@@ -45,7 +45,7 @@
        cutoff.x, cutoff.y, ...,
        cutoff.quantile.x = 0.95, cutoff.quantile.y = cutoff.quantile.x,
        transform.x, transform.y = transform.x,
-       id.n, cex.pts = 1,lab.pts, jitt.pts = 0, alpha.trsp = NA, adj =0, cex.idn,
+       id.n, cex.pts = 1,lab.pts, jit.pts = 0, alpha.trsp = NA, adj =0, cex.idn,
        col.idn, lty.cutoff, lwd.cutoff, col.cutoff,
        text.abline = TRUE,
        text.abline.x = NULL, text.abline.y = NULL,
@@ -55,7 +55,7 @@
        text.abline.y.x = NULL, text.abline.y.y = NULL,
        text.abline.x.fmt.cx = "%7.2f", text.abline.x.fmt.qx = "%4.2f%%",
        text.abline.y.fmt.cy = "%7.2f", text.abline.y.fmt.qy = "%4.2f%%",
-       jitt.fac, doplot = TRUE){
+       jit.fac, jit.tol = .Machine$double.eps, doplot = TRUE){
 
          mc <- match.call(call = sys.call(sys.parent(1)))
          mc$data <- matrix(data,nrow=1)