[Bugs-r-devel] SF.net SVN: bugs-r:[265] trunk/BRugs

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

Revision: 265
          http://sourceforge.net/p/bugs-r/code/265
Author:   ligges
Date:     2013-05-26 16:05:18 +0000 (Sun, 26 May 2013)
Log Message:
-----------
Bugfix: samplesStats(node) did not work on node vectors of length > 1

Modified Paths:
--------------
    trunk/BRugs/DESCRIPTION
    trunk/BRugs/NEWS
    trunk/BRugs/R/samples.stats.R

Modified: trunk/BRugs/DESCRIPTION
===================================================================
--- trunk/BRugs/DESCRIPTION	2013-04-10 20:33:41 UTC (rev 264)
+++ trunk/BRugs/DESCRIPTION	2013-05-26 16:05:18 UTC (rev 265)
@@ -1,7 +1,7 @@
 Package: BRugs
 Title: R interface to the OpenBUGS MCMC software
-Version: 0.8-0
-Date: 2012-07-23
+Version: 0.8-1
+Date: 2013-05-26
 Author: OpenBUGS was developed by Andrew Thomas, Dave Lunn, David Spiegelhalter and Nicky Best.  R interface developed by Uwe Ligges, Sibylle Sturtz, Andrew Gelman, Gregor Gorjanc and Chris Jackson.  Linux port and most recent developments by Chris Jackson.
 Description: Fully-interactive R interface to the OpenBUGS software for Bayesian analysis using MCMC sampling.  Runs natively and stably in 32-bit R under Windows.  Versions running on Linux and on 64-bit R under Windows are in "beta" status and less efficient.
 Maintainer: Uwe Ligges <li...@st...>

Modified: trunk/BRugs/NEWS
===================================================================
--- trunk/BRugs/NEWS	2013-04-10 20:33:41 UTC (rev 264)
+++ trunk/BRugs/NEWS	2013-05-26 16:05:18 UTC (rev 265)
@@ -1,6 +1,11 @@
 Changes to BRugs:
 =====================
 
+Version 0.8.1  (26 May 2013)
+-------------
+Bugfix: samplesStats(node) did not work on node vectors of length > 1
+
+
 Version 0.8.0  (23 July 2012)
 -------------
 BRugs now works with an existing installation of OpenBUGS (>?)= 3.2.2.

Modified: trunk/BRugs/R/samples.stats.R
===================================================================
--- trunk/BRugs/R/samples.stats.R	2013-04-10 20:33:41 UTC (rev 264)
+++ trunk/BRugs/R/samples.stats.R	2013-05-26 16:05:18 UTC (rev 265)
@@ -33,7 +33,7 @@
     }
     
     for(i in seq(along=node)){
-        command <- paste(.SamplesGlobalsCmd(node), "SamplesEmbed.StatsGuard;SamplesEmbed.Stats")
+        command <- paste(.SamplesGlobalsCmd(node[i]), "SamplesEmbed.StatsGuard;SamplesEmbed.Stats")
         .CmdInterpreter(command)
         buffer <- file.path(tempdir(), "buffer.txt")
         rlb <- readLines(buffer)

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