Modified JAGS file architecture

2025-05-01 01:01:55 +02:00
parent b316248838
commit ea96176302
4 changed files with 3 additions and 3 deletions
--- a/inst/jags/bpcm.jags
+++ b/inst/jags/bpcm.jags
@ -0,0 +1,23 @@
+model {
+    for (i in 1:n) {
+        for (j in 1:p) {
+                Y[i,j] ~ dcat(prob[i,j,1:K[j]])
+                }
+                theta[i] ~ dnorm(0,1)
+    }
+    for (i in 1:n) {
+      for (j in 1:p) {
+            for (k in 1:K[j] ) {
+                eta[i,j,k] <- theta[i] - delta[j,k]
+                psum[i,j,k] <- sum(eta[i,j,1:k])
+                exp.psum[i,j,k] <- exp(psum[i,j,k])
+                prob[i,j,k] <- exp.psum[i,j,k] / sum(exp.psum[i,j,1:K[j]])
+    } } }
+    for (j in 1:p) {
+        delta[j,1] <- 0.0
+        for (k in 2:K[j]) {
+                delta[j,k] ~ dnorm(m.delta, pr.delta)
+        }
+    }
+    pr.delta <- pow(s.delta, -2)
+}