Revision 13e45eaa4f4a7f231224f1b8ca4dff03903d250b authored by Mark Clements on 31 August 2017, 20:37:09 UTC, committed by cran-robot on 31 August 2017, 20:37:09 UTC
1 parent e222ff8
model.bug
model
{
for (i in 1:N) {
y[i] ~ dnorm(0.00000E+00, 1)
x[i] ~ dinterval(y[i], thd)
}
for (i in 1:4) {
dthd[i] ~ dnorm(0.00000E+00, 1.00000E-04)
}
thd[1] <- -1000
thd[2] <- dthd[1]
for (i in 3:5) {
thd[i] <- thd[i - 1] + exp(dthd[i - 1])
}
}
Computing file changes ...
