R/samples.set.end.R

In BRugs: Interface to the 'OpenBUGS' MCMC Software

"samplesSetEnd" <-
function(endIt)
#   Set the end field
{
    if(!is.numeric(endIt))
        stop("endIt ", "must be numeric")
    endIt <- as.integer(endIt)
    options("BRugsSamplesEnd" = endIt)
}