Nothing
logpriorh2 <- function(h2, prior_alpha = 1.0, prior_beta = 0.05)
{
logp = prior_alpha * log(prior_beta) - lgamma(prior_alpha) - (prior_alpha + 1.0) * log(h2) - prior_beta/h2
return(logp)
}
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.