R/model.factory.R

In BRugs: Interface to the 'OpenBUGS' MCMC Software

Defines functions modelEnable modelDisable

Documented in modelDisable modelEnable

modelDisable <- function(factory){
    command <- paste("UpdaterMethods.SetFactory('", factory,"');UpdaterMethods.Disable", sep = "")
    invisible(.CmdInterpreter(command))

}


modelEnable <- function(factory){
    command <- paste("UpdaterMethods.SetFactory('", factory,"');UpdaterMethods.Enable", sep = "")
    invisible(.CmdInterpreter(command))
}

Try the BRugs package in your browser