[Robast-commits] r215 - pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2008-11-24 19:29:03 +0100 (Mon, 24 Nov 2008)
New Revision: 215

Modified:
   pkg/ROptEst/R/leastFavorableRadius.R
   pkg/ROptEst/R/lowerCaseRadius.R
Log:
correction of some buglets...

Modified: pkg/ROptEst/R/leastFavorableRadius.R
===================================================================
--- pkg/ROptEst/R/leastFavorableRadius.R	2008-11-24 16:23:27 UTC (rev 214)
+++ pkg/ROptEst/R/leastFavorableRadius.R	2008-11-24 18:29:03 UTC (rev 215)
@@ -120,6 +120,7 @@
                     lower <- ifelse(identical(all.equal(loRad, 0), TRUE), 1e-4, loRad)
                     upper <- ifelse(upRad == Inf, 10, upRad)
                     ow <- options("warn")
+                    on.exit(options(ow))
                     options(warn = -1)
                     trafo <- L2Fam at param@trafo
                     if(identical(all.equal(loRad, 0), TRUE)){

Modified: pkg/ROptEst/R/lowerCaseRadius.R
===================================================================
--- pkg/ROptEst/R/lowerCaseRadius.R	2008-11-24 16:23:27 UTC (rev 214)
+++ pkg/ROptEst/R/lowerCaseRadius.R	2008-11-24 18:29:03 UTC (rev 215)
@@ -61,6 +61,7 @@
 
         L2deriv <- L2Fam at L2derivDistr[[1]]        
         w0 <- options("warn")
+        on.exit(options(w0))
         options(warn = -1)
         supp <- support(L2deriv)
         gg <- min(abs(supp[supp != 0]))
@@ -99,6 +100,7 @@
 
         sign <- sign(biastype)
         w0 <- options("warn")
+        on.exit(options(w0))
         options(warn = -1)
         L2deriv <- L2Fam at L2derivDistr[[1]]        
         
@@ -128,6 +130,7 @@
 
         sign <- sign(biastype)
         w0 <- options("warn")
+        on.exit(options(w0))
         options(warn = -1)
         
         l <- length(support(L2deriv))