Nothing
#' @title jagsfilter
#' @description Used internally to filter jags results to give just the inference well use.
#' @param mcmcresults is the input from the jags model.
jagsfilter <- function(mcmcresults){
probabilities <- c(0.025, 0.975)
pull <- t(apply(do.call(rbind, mcmcresults), 2, function(f) {
c(mean=mean(f), sd=sd(f), quantile(f, probabilities))
}))
pull <- pull[,c('mean', '2.5%', '97.5%')]
return(pull)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.