[Bugs-r-devel] SF.net SVN: bugs-r:[178] branches/linux/BRugs/R/bugs.inits.R

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

Revision: 178
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=178&view=rev
Author:   chris-jackson
Date:     2010-11-05 08:48:04 +0000 (Fri, 05 Nov 2010)

Log Message:
-----------
Add format option 

Modified Paths:
--------------
    branches/linux/BRugs/R/bugs.inits.R

Modified: branches/linux/BRugs/R/bugs.inits.R
===================================================================
--- branches/linux/BRugs/R/bugs.inits.R	2010-11-05 08:42:23 UTC (rev 177)
+++ branches/linux/BRugs/R/bugs.inits.R	2010-11-05 08:48:04 UTC (rev 178)
@@ -1,5 +1,5 @@
 "bugsInits" <-
-function (inits, numChains = 1, fileName, digits = 5){
+function (inits, numChains = 1, fileName, format="E", digits = 5){
     if(missing(fileName))
         fileName <- file.path(tempdir(), paste("inits", 1:numChains, ".txt", sep = ""))
     if(length(fileName) != numChains)
@@ -8,12 +8,12 @@
       for (i in 1:numChains){
         if (is.function(inits))
           if (is.R())
-            write.datafile(lapply(inits(), formatC, digits = digits, format = "E"), fileName[i])
+            write.datafile(lapply(inits(), formatC, digits = digits, format = format), fileName[i])
           else
             writeDatafileS4(inits(), towhere = fileName[i])
         else
           if (is.R())
-            write.datafile(lapply(inits[[i]], formatC, digits = digits, format = "E"), fileName[i])
+            write.datafile(lapply(inits[[i]], formatC, digits = digits, format = format), fileName[i])
           else
             writeDatafileS4(inits[[i]], towhere = fileName[i])
       }


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