Выбор разных дистрибутивов на основе условия if - else в WinBugs / JAGS

Question 1

Я пытаюсь написать модель Winbugs / Jags для моделирования моделей с несколькими зернами (именно эта статья -> http: // www. ryanmcd.com/papers/mg_lda.pdf)

Здесь я хотел бы выбрать другое распределение на основе определенного значения. Например: я хотел бы сделать что-нибудь вроде

`if ( X[i] > 0.5 )
{
Z[i] ~ dcat(theta-gl[D[i], 1:K-gl])
W[i] ~ dcat(phi-gl[z[i], 1:V])
}
else 
{
Z[i] ~ dcat(theta-loc[D[i], 1:K-loc])
W[i] ~ dcat(phi-loc[z[i], 1:V])
}
`

Возможно ли это сделать в Winbugs / JAGS?

if-statement model distribution winbugs jags

11

user662239 14 Мар 2013 в 20:04

1

Я не уверен, что полностью понимаю ваш код. если в WinBUGS возможны операторы .... mrc- bsu.cam.ac.uk/bugs/faqs/contents.shtml#q15

–

guyabel

26 Мар 2013 в 20:46

Answer

Winbugs / JAGS не является процедурным языком, поэтому вы не можете использовать такую конструкцию. Используйте функцию step. Цитата из руководства:

шаг (e) ...... 1, если e> = 0; 0 иначе

Итак, вам нужен трюк, чтобы изменить условие:

X[i] > 0.5   <=>     
X[i] - 0.5 > 0  <=> 
!(X[i] - 0.5 <= 0) <=>
!(-(X[i] - 0.5) >= 0) <=>
!(step(-(X[i] - 0.5)) == 1) <=>
step(-(X[i] - 0.5)) == 0

А затем используйте это для трюка с индексированием:

# then branch
Z_branch[i, 1] ~ dcat(theta-gl[D[i], 1:K-gl])
W_branch[i, 1] ~ dcat(phi-gl[z[i], 1:V])

# else branch
Z_branch[i, 2] ~ dcat(theta-loc[D[i], 1:K-loc])
W_branch[i, 2] ~ dcat(phi-loc[z[i], 1:V])

# decision here
if_branch[i] <- 1 + step(-(X[i] - 0.5)) # 1 for "then" branch, 2 for "else" branch
Z[i] ~ Z_branch[i, if_branch[i]]
W[i] ~ W_branch[i, if_branch[i]]

10

Tomas 12 Дек 2013 в 01:19

Что здесь <=>? Вы просто указываете, что они эквивалентны?

–

jbaums

1 Фев 2015 в 10:23

1

Точно :-) Это просто математический символ для обозначения эквивалентности, а не символ реального компьютерного языка :)

–

Tomas

9 Фев 2018 в 18:01

Question 2