From: <chr...@us...> - 2010-11-05 08:48:10
|
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. |