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

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

Revision: 78
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=78&view=rev
Author:   ligges
Date:     2008-01-06 10:56:18 -0800 (Sun, 06 Jan 2008)

Log Message:
-----------
two typos during last commit not found by R CMD check before...

Modified Paths:
--------------
    trunk/R2WinBUGS/R/bugs.R
    trunk/R2WinBUGS/R/bugs.script.R

Modified: trunk/R2WinBUGS/R/bugs.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.R	2008-01-06 18:17:57 UTC (rev 77)
+++ trunk/R2WinBUGS/R/bugs.R	2008-01-06 18:56:18 UTC (rev 78)
@@ -104,7 +104,7 @@
   if(codaPkg)
     return(file.path(getwd(), paste("coda", 1:n.chains, ".txt", sep="")))
   if (summary.only) {
-    return(log("log.txt"))
+    return(bugs.log("log.txt"))
   }
 
   sims <- c(bugs.sims(parameters.to.save, n.chains, n.iter, n.burnin,

Modified: trunk/R2WinBUGS/R/bugs.script.R
===================================================================
--- trunk/R2WinBUGS/R/bugs.script.R	2008-01-06 18:17:57 UTC (rev 77)
+++ trunk/R2WinBUGS/R/bugs.script.R	2008-01-06 18:56:18 UTC (rev 78)
@@ -5,8 +5,6 @@
            newWINE=TRUE, WINEPATH=NULL, bugs.seed=NULL, summary.only=FALSE,
            save.history=TRUE, bugs.data.file, bugs.inits.files)
 {
-
-  output.coda <- (!summary.only)
   ## Write file script.txt for Bugs
   if((ceiling(n.iter/n.thin) - ceiling(n.burnin/n.thin)) < 2)
     stop ("(n.iter-n.burnin)/n.thin must be at least 2")
@@ -64,7 +62,8 @@
     savelist,
     if(DIC) "dic.set()\n",
     rep(c("update (", formatC(ceiling(bin), format = "d"), ")\n",
-          if (output.coda) c("coda (*, '", coda, "')\n")), 
+          #if (!summary.only) ## Hmm, if coda files are not written, we do not know if WinBUGS did not fail
+          c("coda (*, '", coda, "')\n")), 
         redo),
     "stats (*)\n",
     if(DIC) "dic.stats()\n",


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