fixed symmetry in prior for corr-lda in example and doc

Bob Carpenter · Bob Carpenter · commit e446e3313be2 · 2013-02-28T13:50:59.000-05:00
diff --git a/misc/cluster/lda/corr-lda.stan b/misc/cluster/lda/corr-lda.stan
@@ -21,8 +21,10 @@ transformed parameters {
     theta[m] <- softmax(eta[m]);
   for (m in 1:M) {
     Sigma[m,m] <- sigma[m] * sigma[m] * Omega[m,m];
-    for (n in (m+1):M)
+    for (n in (m+1):M) {
       Sigma[m,n] <- sigma[m] * sigma[n] * Omega[m,n];
+      Sigma[n,m] <- Sigma[m,n];
+    }
   } 
 }
 model {

Original file line number	Diff line number	Diff line change
`@@ -21,8 +21,10 @@ transformed parameters {`
`21`	`21`	`theta[m] <- softmax(eta[m]);`
`22`	`22`	`for (m in 1:M) {`
`23`	`23`	`Sigma[m,m] <- sigma[m] * sigma[m] * Omega[m,m];`
`24`		`- for (n in (m+1):M)`
	`24`	`+ for (n in (m+1):M) {`
`25`	`25`	`Sigma[m,n] <- sigma[m] * sigma[n] * Omega[m,n];`
	`26`	`+ Sigma[n,m] <- Sigma[m,n];`
	`27`	`+ }`
`26`	`28`	`}`
`27`	`29`	`}`
`28`	`30`	`model {`