commit 4ccdcf11050e69e1c4b0feffa596b7d53059fd1c
parent a41b1ea95a5ff2dd163ddaac4a9944d0a2382c26
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date: Fri, 28 Aug 2015 21:15:14 -0400
Full model works! Lil' bug fix.
Diffstat:
1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/antivax-attitudes.R b/antivax-attitudes.R
@@ -100,6 +100,7 @@ plotMCMC(mcmcCoda,
saveType = "png")
# This right here is the good stuff:
+mcmcMat <- as.matrix(mcmcCoda)
plotPost((mcmcMat[, "b2b3[3,2]"] - mcmcMat[, "b2b3[3,1]"]) -
(mcmcMat[, "b2b3[1,2]"] - mcmcMat[, "b2b3[1,1]"]))
# It shows that post-pre for the "disease risk" is greater than post-pre for