R/read.bugs.R

In R2WinBUGS: Running 'WinBUGS' and 'OpenBUGS' from 'R' / 'S-PLUS'

read.bugs <- function(codafiles, ...){
    if(!is.R() && !requireNamespace("coda", quietly = TRUE))
        stop("package 'coda' is required to use this function")
    mcmc.list(lapply(codafiles, read.coda, 
                     index.file = file.path(dirname(codafiles[1]), "codaIndex.txt"), 
                     ...))
}