z <- c(rnorm(1000, 0, 3), rnorm(1000, 0, 5), rexp(1000, 5), -rexp(1000, 5))
mm <- bayesMixModel(z, normNull=1:2, expNeg=3, expPos=4,
sdNormNullInit=c(1, 2), rateExpNegInit=8, rateExpPosInit=8,
shapeNorm0=c(1, 1), scaleNorm0=c(1, 1),
shapeExpNeg0=c(1, 1), scaleExpNeg0=c(1, 1),
shapeExpPos0=c(1, 1), scaleExpPos0=c(1, 1),
sdAlpha=1, itb=200, nmc=1000, thin=10)
plotChains(mm, chain="pi")
plotChains(mm, component=c(2,3))
Run the code above in your browser using DataLab