R/dics.R

Defines functions dics

dics <-
function(fital) {unlist(lapply(fital,function(x) if(!is.null(x$dic[1])) x$dic[1] else NA))}
markvdwiel/ShrinkBayes documentation built on March 27, 2022, 7:47 p.m.