Nothing
postmean <- function(g_hat, g_bar, n, d_star, t2) {
output <- (t2 * n * g_hat + d_star * g_bar) / (t2 * n + d_star)
return(output)
}
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.