antivax-attitudes

commit a9ccf4a5be05fbe43c426fecaad95ef95f515954
parent 0523fbb0501bc72230de51e06768819d8746c963
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Fri, 28 Aug 2015 13:28:55 -0400

Typos.

Diffstat:
M
Jags-Yord-Xnom1grp-Mnormal.R
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Jags-Yord-Xnom1grp-Mnormal.R b/Jags-Yord-Xnom1grp-Mnormal.R
@@ -112,7 +112,7 @@ genMCMC = function( datFrm, yName , x1Name, x2Name, x3Name,
     for (j1 in 1:Nx1Lvl) {
       for (j2 in 1:Nx2Lvl) {
         for (j3 in 1:Nx3Lvl) {
-          m[j1,j2,j3] <- a0 + a1[j1] + a2[j2] + a3[j3] + a2a3[j2, j3]
+          m[j1, j2, j3] <- a0 + a1[j1] + a2[j2] + a3[j3] + a2a3[j2, j3]
         }
       }
     } 
@@ -129,7 +129,7 @@ genMCMC = function( datFrm, yName , x1Name, x2Name, x3Name,
     for (j2 in 1:Nx2Lvl) {
       for (j3 in 1:Nx3Lvl) {
         # Just guessing HERE
-        b2b3[j2, j3] <- mean(m[1:1NxLvl, j2, j3]) - (b0 + b1 + b2)
+        b2b3[j2, j3] <- mean(m[1:Nx1Lvl, j2, j3])  - (b0 + b2[j2] + b3[j3])
       }
     }
   }