[Bugs-r-devel] SF.net SVN: bugs-r:[134] trunk/R2WinBUGS

[<li...@us...>]

Revision: 134
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=134&view=rev
Author:   ligges
Date:     2010-03-18 16:28:46 +0000 (Thu, 18 Mar 2010)

Log Message:
-----------
bug fixed as reported by S. McKay Curtis 

Modified Paths:
--------------
    trunk/R2WinBUGS/DESCRIPTION
    trunk/R2WinBUGS/R/as.bugs.array.R
    trunk/R2WinBUGS/inst/NEWS

Modified: trunk/R2WinBUGS/DESCRIPTION
===================================================================
--- trunk/R2WinBUGS/DESCRIPTION	2009-11-08 19:35:59 UTC (rev 133)
+++ trunk/R2WinBUGS/DESCRIPTION	2010-03-18 16:28:46 UTC (rev 134)
@@ -1,7 +1,7 @@
 Package: R2WinBUGS
 Title: Running WinBUGS and OpenBUGS from R / S-PLUS
-Date: 2009-11-06
-Version: 2.1-16
+Date: 2010-03-18
+Version: 2.1-17
 Author: originally written by Andrew Gelman <ge...@st...>;
  changes and packaged by Sibylle Sturtz <st...@st...>
  and Uwe Ligges <li...@st...>.

Modified: trunk/R2WinBUGS/R/as.bugs.array.R
===================================================================
--- trunk/R2WinBUGS/R/as.bugs.array.R	2009-11-08 19:35:59 UTC (rev 133)
+++ trunk/R2WinBUGS/R/as.bugs.array.R	2010-03-18 16:28:46 UTC (rev 134)
@@ -52,10 +52,11 @@
         n.indexes.short[[j]][k] <- length(unique(unlist(lapply(indexes.long[long.short[[j]]], .subset, k))))
       }
       length.short[j] <- prod(n.indexes.short[[j]])
-      if (length(long.short[[j]]) != length.short[j]){
-        stop(paste("error in parameter", root.short[[j]],
-          "in parameters.to.save"))
-      }
+### bug reported by S. McKay Curtis on February 22, 2010, we cannot check that safely:
+##      if (length(long.short[[j]]) != length.short[j]){
+##        stop(paste("error in parameter", root.short[[j]],
+##          "in parameters.to.save"))
+##      }
       indexes.short[[j]] <- as.list(numeric(length.short[j]))
       for (k in 1:length.short[j]){
         indexes.short[[j]][[k]] <- indexes.long[[long.short[[j]][k]]]

Modified: trunk/R2WinBUGS/inst/NEWS
===================================================================
--- trunk/R2WinBUGS/inst/NEWS	2009-11-08 19:35:59 UTC (rev 133)
+++ trunk/R2WinBUGS/inst/NEWS	2010-03-18 16:28:46 UTC (rev 134)
@@ -1,13 +1,16 @@
 Changes to R2WinBUGS:
 =====================
 
+Update 2.1-17
+- fix as.bugs.array as reported by S. McKay Curtis
+
 Update 2.1-16
 - fix write.model() again by going throught parse tree now
 
 Update 2.1-15
 - added seed argument to openbugs()
 - fix write.model() to work for separatly specified function body
-- fix write.model() to make larger numeric (particularly integer) values 
+- fix write.model() to make larger numeric (particularly integer) values
   in scientific notation work
 - fix bugs.update.settings() for R>=2.10.0 compatibility
 
@@ -25,13 +28,13 @@
 - bugfix: plot.bugs() did not reset par(mfrow)
 - bugfix: adaptive phase stuff cannot read from files anymore by openbugs(),
           feature has been removed
-- openbugs now displays messages before starting the sampling 
+- openbugs now displays messages before starting the sampling
   (essentially using flush.console())
 
 
 Update 2.1-11
-- bugfix: if working.directory was unset and files are assumed to be in R's 
-  former wd, these are copied to the tempdir that is set as new working 
+- bugfix: if working.directory was unset and files are assumed to be in R's
+  former wd, these are copied to the tempdir that is set as new working
   directory now.
 
 Update 2.1-10


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.