Nothing
NormalNormalPosterior <- function(datamean, sigma, n, nu, tau){
postmean <- (n / (sigma ^ 2) + tau ^ (-2)) ^ (-1) * (n * datamean / (sigma ^ 2) + nu / (tau ^ 2))
postsigma <- sqrt((n / (sigma ^ 2) + tau ^ (-2)) ^ (-1))
res <- list("postmean" = postmean, "postsigma" = postsigma)
return(res)
}
#
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.