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

[<chr...@us...>]

Revision: 159
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=159&view=rev
Author:   chris-jackson
Date:     2010-05-17 21:16:20 +0000 (Mon, 17 May 2010)

Log Message:
-----------
Added seed option to openbugs()

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

Modified: trunk/R2WinBUGS/R/openbugs.R
===================================================================
--- trunk/R2WinBUGS/R/openbugs.R	2010-05-17 20:04:29 UTC (rev 158)
+++ trunk/R2WinBUGS/R/openbugs.R	2010-05-17 21:16:20 UTC (rev 159)
@@ -49,7 +49,7 @@
     try(file.copy(file.path(savedWD, data), data, overwrite = TRUE))
   BRugs::modelData(data)
   BRugs::modelCompile(numChains)
-  if(!is.null(seed)) BRugs::modelSetSeed(newSeed=seed)
+  if(!is.null(seed)) BRugs::modelSetRN(seed)
   if(missing(inits) || is.null(inits)) {
     BRugs::modelGenInits()
   } else {
@@ -66,7 +66,7 @@
   BRugs::samplesSetThin(nThin)
   ## set the adaptive phases
 
-## We do no longer have any Registry.txt file availabe, 
+## We do no longer have any Registry.txt file availabe,
 ## hence not resetting the adaptive phase any more.
 ## People should move to BRugs directly.
 #  adaptivelines <- scan(system.file("OpenBUGS", "Bugs", "Rsrc",
@@ -75,7 +75,7 @@
 #  factories <- sub(".adaptivePhase", "",
 #                   adaptivelines[grep("adaptivePhase",adaptivelines)])
 #  sapply(factories, BRugs::modelSetAP, max(0, nBurnin-1))
-  if(getOption("BRugsVerbose")){   
+  if(getOption("BRugsVerbose")){
     cat("Sampling has been started ...\n")
     flush.console()
   }


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