R/bugs.inits.R

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

"bugs.inits" <- 
function (inits, n.chains, digits,
          inits.files = paste("inits", 1:n.chains, ".txt", sep = "")){
    if(!is.null(inits)) {
        for(i in 1:n.chains) {
            if(is.function(inits))
                if(is.R()) {
                    write.datafile(lapply(inits(), formatC, digits = digits, format = "E"),
                        inits.files[i])
                } else {
                    writeDatafileS4(inits(), towhere = inits.files[i])
                }
            else if(is.R()) {
                write.datafile(lapply(inits[[i]], formatC, digits = digits, format = "E"), 
                    inits.files[i])
                } else {
                    writeDatafileS4(inits[[i]], towhere = inits.files[i])
                }
        }
    }
    return(inits.files)
}