[Bugs-r-devel] SF.net SVN: bugs-r: [35] trunk/R2WinBUGS/R/openbugs.R

[<gg...@us...>]

Revision: 35
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=35&view=rev
Author:   ggorjan
Date:     2007-08-08 02:48:36 -0700 (Wed, 08 Aug 2007)

Log Message:
-----------
Reverting back to use of samplesSetThin() before burnin phase. But note
that this is inefficient as has been pointed by Dawn for WinBUGS. Move to
modelUpdate(niter, thin) is needed, but I am not yet sure what else needs
to be modified.

Modified Paths:
--------------
    trunk/R2WinBUGS/R/openbugs.R

Modified: trunk/R2WinBUGS/R/openbugs.R
===================================================================
--- trunk/R2WinBUGS/R/openbugs.R	2007-08-08 08:56:34 UTC (rev 34)
+++ trunk/R2WinBUGS/R/openbugs.R	2007-08-08 09:48:36 UTC (rev 35)
@@ -51,7 +51,7 @@
     BRugs::modelInits(inits)
     BRugs::modelGenInits()
   }
-  ## BRugs::samplesSetThin(nThin)
+  BRugs::samplesSetThin(nThin)
   ## set the adaptive phases
   adaptivelines <- scan(system.file("OpenBUGS", "Bugs", "Rsrc",
                                     "Registry.txt", package="BRugs"),
@@ -61,7 +61,7 @@
   sapply(factories, BRugs::modelSetAP, max(0, nBurnin-1))
 
   BRugs::modelUpdate(nBurnin)
-  BRugs::samplesSetThin(nThin)
+  ## BRugs::samplesSetThin(nThin)
   if(DIC) {
     BRugs::dicSet()
     on.exit(BRugs::dicClear(), add = TRUE)


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