https://github.com/cran/rstpm2
Tip revision: a5ef3506c39866f5e7b3d57e7fa0677cf4edd675 authored by Mark Clements on 13 April 2016, 17:59:18 UTC
version 1.3.2
version 1.3.2
Tip revision: a5ef350
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])
}
}