Nothing
model{
for (method in 1:2) {
x[method] ~ dbinom(pi[method], n)
pi[method] ~ dunif(0, 1)
}
pi.diff <- abs(pi[1] - pi[2])
p05 <- ifelse(pi.diff < 0.05, 1, 0)
}
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.