Nothing
# model file model-102f.bug fits a callibration model for continuous on
# continuous corresponding R file model-102.r intercept plus sex no age in this
# model
data{
n <- length(age)
n.sexes <- max(sex)
}
model{
for (i in 1:n) {
rdt[i] ~ dnorm(mu[i], tau)
mu[i] <- (b0 + b2[sex[i]])
}
for (k in 2:n.sexes) {
b2[k] ~ dnorm(0, 1e-04)
}
b2[1] <- 0 # corner constrain sex
b0 ~ dnorm(0, 1e-04)
tau ~ dgamma(0.005, 0.005)
}
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.