Я уже подогнал регрессионную модель с помощью JAGS.
model{
for(i in 1:n) {
y[i] ~ dbeta(alpha[i], beta[i])
alpha[i] <- mu[i] * phi[i]
beta[i] <- (1 - mu[i]) * phi[i]
log(phi[i]) <- -inprod(X2[i, ], delta[])
cloglog(mu[i]) <- inprod(X1[i, ], B[])
}
for (j in 1:p){
B[j] ~ dnorm(0, .001)
}
for(k in 1:s){
delta[k] ~ dnorm(0, .001)
}
}
Но мне нужно смоделировать 50 выборок переменной отклика, каждая из которых имеет размер, чтобы сделать несколько графиков. Как мне это сделать?
Я нашел этот поток небольшой помощи
Должен ли я запустить цепочку снова, учитывая значения апостериорных оценок, которые у меня уже есть в качестве исходных значений?