[Robast-commits] r216 - in pkg: ROptEst/chm RobAStBase/R RobAStBase/chm

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

Author: ruckdeschel
Date: 2008-11-24 20:49:45 +0100 (Mon, 24 Nov 2008)
New Revision: 216

Modified:
   pkg/ROptEst/chm/ROptEst.chm
   pkg/RobAStBase/R/AllPlot.R
   pkg/RobAStBase/R/comparePlot.R
   pkg/RobAStBase/R/infoPlot.R
   pkg/RobAStBase/chm/0RobAStBase-package.html
   pkg/RobAStBase/chm/RobAStBase.chm
Log:
yet some buglets...

Modified: pkg/ROptEst/chm/ROptEst.chm
===================================================================
(Binary files differ)

Modified: pkg/RobAStBase/R/AllPlot.R
===================================================================
--- pkg/RobAStBase/R/AllPlot.R	2008-11-24 18:29:03 UTC (rev 215)
+++ pkg/RobAStBase/R/AllPlot.R	2008-11-24 19:49:45 UTC (rev 216)
@@ -112,9 +112,9 @@
      }
 
 
-        w0 <- options("warn")
+        w0 <- getOption("warn")
         options(warn = -1)
-        on.exit(options(w0))
+        on.exit(options(warn = w0))
         opar <- par()
         on.exit(par=opar)
         if (!withSweave)

Modified: pkg/RobAStBase/R/comparePlot.R
===================================================================
--- pkg/RobAStBase/R/comparePlot.R	2008-11-24 18:29:03 UTC (rev 215)
+++ pkg/RobAStBase/R/comparePlot.R	2008-11-24 19:49:45 UTC (rev 216)
@@ -160,9 +160,9 @@
               }
 
 
-        w0 <- options("warn")
+        w0 <- getOption("warn")
         options(warn = -1)
-        on.exit(options(w0))
+        on.exit(options(warn = w0))
         opar <- par()
         on.exit(par(opar))
         nrows <- trunc(sqrt(dims))

Modified: pkg/RobAStBase/R/infoPlot.R
===================================================================
--- pkg/RobAStBase/R/infoPlot.R	2008-11-24 18:29:03 UTC (rev 215)
+++ pkg/RobAStBase/R/infoPlot.R	2008-11-24 19:49:45 UTC (rev 216)
@@ -142,9 +142,9 @@
             absInfo <- sapply(x.vec, absInfo at Map[[1]])
 
             
-            w0 <- options("warn")
+            w0 <- getOption("warn")
             options(warn = -1)
-            on.exit(w0)
+            on.exit(options(warn = w0))
             opar <- par()
             on.exit(par(opar))
 #            if (!withSweave)

Modified: pkg/RobAStBase/chm/0RobAStBase-package.html
===================================================================
--- pkg/RobAStBase/chm/0RobAStBase-package.html	2008-11-24 18:29:03 UTC (rev 215)
+++ pkg/RobAStBase/chm/0RobAStBase-package.html	2008-11-24 19:49:45 UTC (rev 216)
@@ -35,7 +35,7 @@
   <td align="left"> Date: </td>  <td align="left"> 2008-11-24</td>
 </tr>
 <tr>
-  <td align="left"> Depends: </td>  <td align="left"> R(&gt;= 2.7.0), methods, distr(&gt;= 2.0), distrEx(&gt;= 2.0), distrMod(&gt;= 2.0), RandVar(&gt;= 0.6.3)</td>
+  <td align="left"> Depends: </td>  <td align="left"> R(&gt;= 2.7.0), methods, distr(&gt;= 2.0), distrEx(&gt;= 2.0),distrMod(&gt;= 2.0), RandVar(&gt;= 0.6.3)</td>
 </tr>
 <tr>
   <td align="left"> LazyLoad: </td>  <td align="left"> yes</td>

Modified: pkg/RobAStBase/chm/RobAStBase.chm
===================================================================
(Binary files differ)