[Distr-commits] r647 - branches/distr-2.3/pkg/distr/R

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

Author: ruckdeschel
Date: 2010-04-23 16:55:14 +0200 (Fri, 23 Apr 2010)
New Revision: 647

Modified:
   branches/distr-2.3/pkg/distr/R/qqplot.R
Log:
fixed an error with qqplot in distr: mfColRow did not work as it should... now can be used in multipanel plots

Modified: branches/distr-2.3/pkg/distr/R/qqplot.R
===================================================================
--- branches/distr-2.3/pkg/distr/R/qqplot.R	2010-04-19 10:54:31 UTC (rev 646)
+++ branches/distr-2.3/pkg/distr/R/qqplot.R	2010-04-23 14:55:14 UTC (rev 647)
@@ -23,6 +23,9 @@
     if(missing(xlab)) mc$xlab <- as.character(deparse(mc$x))
     if(missing(ylab)) mc$ylab <- as.character(deparse(mc$y))
     mcl <- as.list(mc)[-1]
+    mcl$withSweave <- NULL
+    mcl$mfColRow <- NULL
+
     force(x)
 
     pp <- ppoints(n)
@@ -66,7 +69,7 @@
            devNew(width = width, height = height)
     }
     opar <- par("mfrow")
-    on.exit(do.call(par, list(mfrow=opar)))
+    if(mfColRow) on.exit(do.call(par, list(mfrow=opar)))
     if(mfColRow) opar1 <- par(mfrow = c(1,1))
 
     ret <- do.call(stats::qqplot, args=mcl)