Revision: 22
http://svn.sourceforge.net/bugs-r/?rev=22&view=rev
Author: woodard_
Date: 2007-05-23 10:44:29 -0700 (Wed, 23 May 2007)
Log Message:
-----------
Fixed a bug in S-PLUS code
(function replaceScientificNotation)
Modified Paths:
--------------
trunk/R2WinBUGS/R/write.model.R
Modified: trunk/R2WinBUGS/R/write.model.R
===================================================================
--- trunk/R2WinBUGS/R/write.model.R 2007-05-23 16:29:15 UTC (rev 21)
+++ trunk/R2WinBUGS/R/write.model.R 2007-05-23 17:44:29 UTC (rev 22)
@@ -40,7 +40,7 @@
## Then, handle the negative exponents
## Find the first instance
- sciNoteLoc <- regexpr("[0-9]*.{0,1}[0-9]*e\\-0[0-9]{2}", text)
+ sciNoteLoc <- regexpr("[0-9]*\\.{0,1}[0-9]*e\\-0[0-9]{2}", text)
## For every instance, replace the number
while(sciNoteLoc > -1){
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
