Menu
▾
▴
bugs-r-devel
|
From: <li...@us...> - 2007-08-27 16:44:43
|
Revision: 40
http://bugs-r.svn.sourceforge.net/bugs-r/?rev=40&view=rev
Author: ligges
Date: 2007-08-26 11:38:35 -0700 (Sun, 26 Aug 2007)
Log Message:
-----------
Fixes by Andrew Thomas.
Modified Paths:
--------------
trunk/BRugs/R/current.values.R
trunk/BRugs/R/set.values.R
Modified: trunk/BRugs/R/current.values.R
===================================================================
--- trunk/BRugs/R/current.values.R 2007-08-23 08:08:03 UTC (rev 39)
+++ trunk/BRugs/R/current.values.R 2007-08-26 18:38:35 UTC (rev 40)
@@ -3,14 +3,14 @@
# Get current value of node
{
nodeLabel <- as.character(nodeLabel)
- command <- "BugsRobjects.Set"
+ command <- "BugsRobjects.SetVariable"
len <- nchar(command)
.C("CharArray", command, as.integer(len), nodeLabel, nchar(nodeLabel), integer(1), PACKAGE="BRugs")
- command <- "BugsRobjects.Size"
+ command <- "BugsRobjects.GetSize"
nodeSize <- .C("Integer", command, nchar(command), integer(1), integer(1), PACKAGE="BRugs")[[3]]
if(nodeSize == -1)
stop(nodeLabel, " is not a node in BUGS model")
- command <- "BugsRobjects.Values"
+ command <- "BugsRobjects.GetValues"
.C("RealArray", command, nchar(command), as.real(rep(NA, nodeSize)),
as.integer(nodeSize), integer(1), NAOK = TRUE, PACKAGE="BRugs")[[3]]
}
Modified: trunk/BRugs/R/set.values.R
===================================================================
--- trunk/BRugs/R/set.values.R 2007-08-23 08:08:03 UTC (rev 39)
+++ trunk/BRugs/R/set.values.R 2007-08-26 18:38:35 UTC (rev 40)
@@ -8,9 +8,9 @@
# if(any(DoNotSetNA))
# warning("Some NA values formerly had a non-NA value -- left unchanged")
# values[DoNotSetNA] <- cv[DoNotSetNA]
- command <- "BugsRobjects.Set"
+ command <- "BugsRobjects.SetVariable"
.C("CharArray", command, nchar(command), nodeLabel, nchar(nodeLabel), integer(1), PACKAGE="BRugs")
- command <- "BugsRobjects.Size"
+ command <- "BugsRobjects.GetSize"
nodeSize <- .C("Integer", command, nchar(command), integer(1), integer(1), PACKAGE="BRugs")[3]
if(nodeSize == -1)
stop(nodeLabel, " is not a node in BUGS model")
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <li...@us...> - 2007-09-14 14:14:04
|
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.
|
|
From: <li...@us...> - 2007-09-16 17:15:14
|
Revision: 58
http://bugs-r.svn.sourceforge.net/bugs-r/?rev=58&view=rev
Author: ligges
Date: 2007-09-16 10:15:08 -0700 (Sun, 16 Sep 2007)
Log Message:
-----------
Name of the manual page has changed again ....
Modified Paths:
--------------
trunk/BRugs/R/unix/help.R
trunk/BRugs/R/windows/help.R
Modified: trunk/BRugs/R/unix/help.R
===================================================================
--- trunk/BRugs/R/unix/help.R 2007-09-14 14:14:03 UTC (rev 57)
+++ trunk/BRugs/R/unix/help.R 2007-09-16 17:15:08 UTC (rev 58)
@@ -24,6 +24,6 @@
"switch to its window."),
exdent = 4))
writeLines("Otherwise, be patient ...")
- browseURL(system.file("OpenBUGS", "docu", "WinBUGS Manual.html", package="BRugs"))
+ browseURL(system.file("OpenBUGS", "Manuals", "Contents.html", package="BRugs"))
invisible("")
}
Modified: trunk/BRugs/R/windows/help.R
===================================================================
--- trunk/BRugs/R/windows/help.R 2007-09-14 14:14:03 UTC (rev 57)
+++ trunk/BRugs/R/windows/help.R 2007-09-16 17:15:08 UTC (rev 58)
@@ -15,7 +15,7 @@
help.WinBUGS <- function(browser = getOption("browser"))
{
# stolen from help.start()
- a <- system.file("OpenBUGS", "Manuals", "WinBUGS Manual.html", package="BRugs")
+ a <- system.file("OpenBUGS", "Manuals", "Contents.html", package="BRugs")
if (!file.exists(a))
stop("I can't find the html help")
if (is.R())
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X