Nothing
# model-022g.bug - model for means of grouped observations - corner constrained
# parameterisation and design and angle as covariates corresponding R file
# model-022.r
data{
n <- length(distance)
n.papers <- max(paper)
n.angles <- max(angle)
n.designs <- max(design)
}
model{
for (i in 1:n) {
distance[i] ~ dnorm(mu[i], tau)
mu[i] <- b0 + b2[angle[i]] + b3[design[i]]
}
# dummy iterations
for (j in 2:n.papers) {
b1[j] <- paper[j]
}
for (k in 2:n.angles) {
b2[k] ~ dnorm(0, 1e-07)
}
b2[1] <- 0 # corner constrain the paper weight
for (m in 2:n.designs) {
b3[m] ~ dnorm(0, 1e-07)
}
b3[1] <- 0 # corner constrain the aeroplane design
tau ~ dgamma(0.001, 0.001)
b0 ~ dunif(0, 10000)
}
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.