antivax-attitudes

Reanalyses of data from Horne, Powell, Hummel & Holyoak (2015)
git clone https://git.eamoncaddigan.net/antivax-attitudes.git
Log | Files | Refs | README | LICENSE

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

Typos.

Diffstat:
MJags-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]) } } }