[5255be]: R / jags.object.R Maximize Restore History

Download this file

jags.object.R    20 lines (17 with data), 492 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
update.jags <- function(object, niter = 1, ...)
{
if (!is.numeric(niter) || niter < 1) {
stop("Invalid niter")
}
object$update(niter)
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")
}