Nothing
################################################################################
# Part of the R/EpiILM package
#
# AUTHORS:
# Vineetha Warriyar. K. V. <vineethawarriyar.kod@ucalgary.ca>,
# Waleed Almutiry <wkmtierie@qu.edu.sa>, and
# Rob Deardon <robert.deardon@ucalgary.ca>
#
#
# Free software under the terms of the GNU General Public License, version 2,
# a copy of which is available at http://www.r-project.org/Licenses/.
################################################################################
epidic <- function(burnin, niter, LLchain, LLpostmean) {
# loglikelihood values after burn-in
loglike <- LLchain[burnin:niter]
D.bar <- -2 * mean(loglike)
D.hat <- -2 * LLpostmean
pD <- D.bar - D.hat
dic <- pD + D.bar
return(dic = dic)
}
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.