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

[<woo...@us...>]

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.