#' @title Function \code{ess}
#' @description list effective sample sizes
#' @export
#' @param from to directory to save simulations and results
#' @param to output directory
ess = function(from, to){
from = newdir(from)
to = newdir(to)
out = list()
for(f in list.files(from)){
l = readRDS(paste0(from, f))
for(a in names(l$analyses)) if("ess" %in% names(l$analyses[[a]])){
n = paste(f, a, sep = "_")
out[[n]] = sort(l$analyses[[a]]$ess)
}
}
saveRDS(out, paste0(to, "ess.rds"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.