R/samples.clear.R

In BRugs: Interface to the 'OpenBUGS' MCMC Software

"samplesClear" <-
function(node)
#   Clear a sample monitor
{
    nodeName <- sQuote(node)
    command <- paste("SamplesEmbed.SetVariable(", nodeName, 
                            ");SamplesEmbed.HistoryGuard;SamplesEmbed.Clear")
    .CmdInterpreter(command)
    if(getOption("BRugsVerbose")) 
        buffer()
}