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.
|
