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

[<gg...@us...>]

Revision: 24
          http://svn.sourceforge.net/bugs-r/?rev=24&view=rev
Author:   ggorjan
Date:     2007-06-12 02:55:29 -0700 (Tue, 12 Jun 2007)

Log Message:
-----------
no need for return() and this is slightly faster

Modified Paths:
--------------
    trunk/R2WinBUGS/R/decode.parameter.name.R
    trunk/R2WinBUGS/R/formatdata.R

Modified: trunk/R2WinBUGS/R/decode.parameter.name.R
===================================================================
--- trunk/R2WinBUGS/R/decode.parameter.name.R	2007-06-12 09:12:59 UTC (rev 23)
+++ trunk/R2WinBUGS/R/decode.parameter.name.R	2007-06-12 09:55:29 UTC (rev 24)
@@ -18,5 +18,5 @@
     indexes <- as.numeric(unlist(strsplit(a, ",")))
     dimension <- length(indexes)
   }
-  return (list (root=root, dimension=dimension, indexes=indexes))
+  list(root=root, dimension=dimension, indexes=indexes)
 }

Modified: trunk/R2WinBUGS/R/formatdata.R
===================================================================
--- trunk/R2WinBUGS/R/formatdata.R	2007-06-12 09:12:59 UTC (rev 23)
+++ trunk/R2WinBUGS/R/formatdata.R	2007-06-12 09:55:29 UTC (rev 24)
@@ -20,5 +20,5 @@
     }
     datalist.tofile <- paste("list(", paste(unlist(datalist.string), 
         collapse = ", "), ")", sep = "")
-    return(datalist.tofile)
+    datalist.tofile
 }


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