[Bugs-r-devel] SF.net SVN: bugs-r: [8] trunk/BRugs/R/bgr.grid.R

[<st...@us...>]

Revision: 8
          http://svn.sourceforge.net/bugs-r/?rev=8&view=rev
Author:   sturtz
Date:     2006-12-29 08:10:15 -0800 (Fri, 29 Dec 2006)

Log Message:
-----------
bugfix if thinning != 1

Modified Paths:
--------------
    trunk/BRugs/R/bgr.grid.R

Modified: trunk/BRugs/R/bgr.grid.R
===================================================================
--- trunk/BRugs/R/bgr.grid.R	2006-11-30 22:26:24 UTC (rev 7)
+++ trunk/BRugs/R/bgr.grid.R	2006-12-29 16:10:15 UTC (rev 8)
@@ -11,7 +11,7 @@
     end <- min(c(samplesGetEnd(), modelIteration()))
     numChains <- samplesGetLastChain() - samplesGetFirstChain() + 1
     sampleSize <- sampleSize %/% numChains
-    beg <- end - (sampleSize - 1) 
+    beg <- end - (sampleSize * samplesGetThin() - 1)
     delta <- sampleSize %/% bins
     grid <- ((1 : (bins - 1)) * delta) + beg
     grid <- c(grid, end)


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