[Bugs-r-devel] SF.net SVN: bugs-r: [57] trunk/BRugs/R

[<li...@us...>]

Revision: 57
          http://bugs-r.svn.sourceforge.net/bugs-r/?rev=57&view=rev
Author:   ligges
Date:     2007-09-14 07:14:03 -0700 (Fri, 14 Sep 2007)

Log Message:
-----------
Andrew renamed API:
SamplesEmbed.Sample -> SamplesEmbed.SampleValues 

Modified Paths:
--------------
    trunk/BRugs/R/bgr.point.R
    trunk/BRugs/R/buildMCMC.R
    trunk/BRugs/R/plot.autoC.R
    trunk/BRugs/R/plot.density.R
    trunk/BRugs/R/plot.history.R
    trunk/BRugs/R/samples.sample.R

Modified: trunk/BRugs/R/bgr.point.R
===================================================================
--- trunk/BRugs/R/bgr.point.R	2007-09-14 12:32:46 UTC (rev 56)
+++ trunk/BRugs/R/bgr.point.R	2007-09-14 14:14:03 UTC (rev 57)
@@ -11,7 +11,7 @@
     command <- "SamplesEmbed.SampleSize"
     sampleSize <- as.integer(.C("Integer", command, nchar(command), 
         integer(1), integer(1), PACKAGE="BRugs")[[3]])
-    command <- "SamplesEmbed.Sample"
+    command <- "SamplesEmbed.SampleValues"
     if (is.R())
       sample <- .C("RealArray", command, nchar(command), real(sampleSize),
                    as.integer(sampleSize), integer(1), PACKAGE="BRugs")[[3]]

Modified: trunk/BRugs/R/buildMCMC.R
===================================================================
--- trunk/BRugs/R/buildMCMC.R	2007-09-14 12:32:46 UTC (rev 56)
+++ trunk/BRugs/R/buildMCMC.R	2007-09-14 14:14:03 UTC (rev 57)
@@ -37,7 +37,7 @@
         command <- "SamplesEmbed.SampleSize"
         sampleSize <- as.integer(.C("Integer", command, nchar(command), 
             integer(1), integer(1), PACKAGE = "BRugs")[[3]])
-        command <- "SamplesEmbed.Sample"
+        command <- "SamplesEmbed.SampleValues"
         if (is.R())
           sample <- .C("RealArray", command, nchar(command), real(sampleSize), 
             sampleSize, integer(1), PACKAGE = "BRugs")[[3]]

Modified: trunk/BRugs/R/plot.autoC.R
===================================================================
--- trunk/BRugs/R/plot.autoC.R	2007-09-14 12:32:46 UTC (rev 56)
+++ trunk/BRugs/R/plot.autoC.R	2007-09-14 14:14:03 UTC (rev 57)
@@ -16,7 +16,7 @@
     else 
       sampleSize <- as.integer(.C("Integer", command, nchar(command), 
                                   integer(1), integer(1), PACKAGE="BRugs")[[3]])
-    command <- "SamplesEmbed.Sample"
+    command <- "SamplesEmbed.SampleValues"
     if (is.R())
       sample <- .C("RealArray", command, nchar(command), real(sampleSize),
                    as.integer(sampleSize), integer(1), PACKAGE="BRugs")[[3]]

Modified: trunk/BRugs/R/plot.density.R
===================================================================
--- trunk/BRugs/R/plot.density.R	2007-09-14 12:32:46 UTC (rev 56)
+++ trunk/BRugs/R/plot.density.R	2007-09-14 14:14:03 UTC (rev 57)
@@ -11,7 +11,7 @@
     command <- "SamplesEmbed.SampleSize"
     sampleSize <- as.integer(.C("Integer", command, nchar(command), 
                                 integer(1), integer(1), PACKAGE="BRugs")[[3]])
-    command <- "SamplesEmbed.Sample"
+    command <- "SamplesEmbed.SampleValues"
     if (is.R())
       sample <- .C("RealArray", command, nchar(command), real(sampleSize),
                    as.integer(sampleSize), integer(1), PACKAGE="BRugs")[[3]]

Modified: trunk/BRugs/R/plot.history.R
===================================================================
--- trunk/BRugs/R/plot.history.R	2007-09-14 12:32:46 UTC (rev 56)
+++ trunk/BRugs/R/plot.history.R	2007-09-14 14:14:03 UTC (rev 57)
@@ -17,7 +17,7 @@
       sampleSize <- as.integer(.C("Integer", command, nchar(command), 
         integer(1), integer(1), PACKAGE="BRugs")[3][[1]])
     }
-    command <- "SamplesEmbed.Sample"
+    command <- "SamplesEmbed.SampleValues"
     if (is.R())
       sample <- .C("RealArray", command, nchar(command), real(sampleSize),
                    sampleSize, integer(1), PACKAGE="BRugs")[[3]]

Modified: trunk/BRugs/R/samples.sample.R
===================================================================
--- trunk/BRugs/R/samples.sample.R	2007-09-14 12:32:46 UTC (rev 56)
+++ trunk/BRugs/R/samples.sample.R	2007-09-14 14:14:03 UTC (rev 57)
@@ -9,7 +9,7 @@
     command <- "SamplesEmbed.SampleSize"
     sampleSize <- as.integer(.C("Integer", command, nchar(command), 
         integer(1), integer(1), PACKAGE="BRugs")[[3]])
-    command <- "SamplesEmbed.Sample"
+    command <- "SamplesEmbed.SampleValues"
     .C("RealArray", command, nchar(command), 
        double(sampleSize), sampleSize, integer(1), PACKAGE="BRugs")[[3]]
 }


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