inst/models/model-001.bugs.R

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)
}

Try the jaggR package in your browser

Any scripts or data that you put into this service are public.

jaggR documentation built on July 19, 2019, 5:05 p.m.