[Analogue-commits] r168 - in pkg: R inst

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

Author: gsimpson
Date: 2010-05-14 00:03:21 +0200 (Fri, 14 May 2010)
New Revision: 168

Modified:
   pkg/R/plot.roc.R
   pkg/inst/ChangeLog
Log:
fix plot.roc resetting plotting region at end of plotting when not needed

Modified: pkg/R/plot.roc.R
===================================================================
--- pkg/R/plot.roc.R	2010-04-23 14:43:04 UTC (rev 167)
+++ pkg/R/plot.roc.R	2010-05-13 22:03:21 UTC (rev 168)
@@ -23,10 +23,9 @@
     show <- rep(FALSE, 5)
     show[which] <- TRUE
     one.fig <- prod(par("mfcol")) == 1
-    op <- par(no.readonly = TRUE)
-    on.exit(par(op))
-    if (ask) {
-        par(ask = TRUE)
+    if(ask) {
+        oask <- devAskNewPage(TRUE)
+        on.exit(devAskNewPage(oask))
     }
     if(any(show[4:5])){
         l.ratios <- bayesF(x, prior = prior)

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2010-04-23 14:43:04 UTC (rev 167)
+++ pkg/inst/ChangeLog	2010-05-13 22:03:21 UTC (rev 168)
@@ -2,6 +2,9 @@
 
 Version 0.6-24
 
+	* plot.roc: was resetting the plotting region at the end of
+	plotting even when there was no need to do so.
+
 	* residuals: Residuals were defined as \hat{x}_i - x_i to match
 	fitted vs. observed scatterplots. Definition of residuals in wa()
 	and related functions has been changed to the more common
@@ -16,7 +19,7 @@
 	the model estimates for training set samples.
 
 	* predict.wa: fix minor bug with CV when tolerance DW was used.
-	
+
 	* Package: reduced package check time in examples, by using
 	the Imbrie & Kipp data.