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 5f82063967a4d453cfb43477a586b3ecde0c806e
parent eb28946e84027ac4f809e1575a7b83de477ef70c
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Fri, 21 Aug 2015 16:45:12 -0400

Was clobbering the index which messed up image saving.

Diffstat:
MJags-Yord-Xnom1grp-Mnormal.R | 6+++---
1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Jags-Yord-Xnom1grp-Mnormal.R b/Jags-Yord-Xnom1grp-Mnormal.R @@ -226,9 +226,9 @@ plotMCMC = function( codaSamples , datFrm , yName , qName, compVal , #RopeEff=NU plot( mcmcMat[plotIdx,threshCols[1]] , threshMean[plotIdx] , col="skyblue" , xlim=xLim , xlab="Threshold" , ylab="Mean Threshold" ) abline(v=mean(mcmcMat[plotIdx,threshCols[1]]),lty="dashed",col="skyblue") - for ( i in 2:length(threshCols) ) { - points( mcmcMat[plotIdx,threshCols[i]] , threshMean[plotIdx] , col="skyblue" ) - abline(v=mean(mcmcMat[plotIdx,threshCols[i]]),lty="dashed",col="skyblue") + for ( jj in 2:length(threshCols) ) { + points( mcmcMat[plotIdx,threshCols[jj]] , threshMean[plotIdx] , col="skyblue" ) + abline(v=mean(mcmcMat[plotIdx,threshCols[jj]]),lty="dashed",col="skyblue") } #----------------------------------------------------------------------------- if ( !is.null(saveName) ) {