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

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

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

Log Message:
-----------
This function is currently BROKEN with OpenBUGS 3.0.2 (waiting for a comment from Andrew),
for the meantime just a simplification for both S-PLUS and R.

Modified Paths:
--------------
    trunk/BRugs/R/samples.sample.R

Modified: trunk/BRugs/R/samples.sample.R
===================================================================
--- trunk/BRugs/R/samples.sample.R	2007-09-14 11:21:12 UTC (rev 55)
+++ trunk/BRugs/R/samples.sample.R	2007-09-14 12:32:46 UTC (rev 56)
@@ -10,10 +10,6 @@
     sampleSize <- as.integer(.C("Integer", command, nchar(command), 
         integer(1), integer(1), PACKAGE="BRugs")[[3]])
     command <- "SamplesEmbed.Sample"
-    if (is.R())
-      .C("RealArray", command, nchar(command), 
-          real(sampleSize), sampleSize, integer(1), PACKAGE="BRugs")[[3]]
-    else
-      .C("RealArray", command, nchar(command), 
-          double(sampleSize), sampleSize, integer(1), PACKAGE="BRugs")[[3]]
+    .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.