[9ff07d]: R / jags.object.R  Maximize  Restore  History

Download this file

23 lines (19 with data), 545 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
update.jags <- function(object, niter = 1, by, ...)
{
if (!is.numeric(niter) || niter < 1) {
stop("Invalid niter")
}
if (missing(by))
by <- floor(niter/50)
object$update(niter, by)
invisible(NULL)
}
coef.jags <- function(object, chain = 1, ...) {
if (!is.numeric(chain) || chain < 1 || chain > object$nchain()) {
stop("Invalid chain")
}
object$state(internal=FALSE)[[chain]]
}
variable.names.jags <- function(object, ...) {
.Call("get_variable_names", object$ptr(), PACKAGE="rjags")
}

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks