bugs-r-devel

[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.

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

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

Revision: 83
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=83&view=rev
Author:   ligges
Date:     2008-01-21 07:50:10 -0800 (Mon, 21 Jan 2008)

Log Message:
-----------
moved is.R() check into openbugs.R() 

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

Modified: trunk/R2WinBUGS/R/openbugs.R
===================================================================
--- trunk/R2WinBUGS/R/openbugs.R	2008-01-18 17:00:00 UTC (rev 82)
+++ trunk/R2WinBUGS/R/openbugs.R	2008-01-21 15:50:10 UTC (rev 83)
@@ -1,14 +1,14 @@
-
-if (is.R()) {
-
 openbugs <- function(data, inits, parameters.to.save, model.file="model.txt",
   n.chains = 3, n.iter = 2000, n.burnin = floor(n.iter/2),
   n.thin = max(1, floor(n.chains *(n.iter - n.burnin) / n.sims)), n.sims = 1000,
   DIC = TRUE, bugs.directory = "c:/Program Files/OpenBUGS/",
   working.directory=NULL, digits = 5)
 {
+  if(!is.R())
+    stop("OpenBUGS is not yet available in S-PLUS")
   if(!require("BRugs"))
     stop("BRugs is required")
+
   ## switching from bugs() to BRugsFit() notation
   modelFile <- model.file
   numChains <- n.chains
@@ -93,5 +93,3 @@
   a.stem <- substr(a, 1, ifelse(bracket.pos>0, bracket.pos-1, nchar(a)))
   a[order(match(a.stem, b))]
 }
-
-}


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