showMode option missing in plotAll() for means' graphs

[FroggyZ]

Hello,

This is not really a problem, but rather a kind request.

Could you add showMode option in the section of plotAll() dedicated to means?
It is set to TRUE in the code for SD's graph, but not for means :)

Below the lines I modified for my own use, but could be great to be able to choose if we would like "mean" or "mode" plotted for both in fact, the means and the SDs.

Thanks a lot.

# Plot posterior distribution of parameters mu1, mu2, and their difference:
  xlim <- range(BESTobj$mu1, BESTobj$mu2)
  if(oneGrp) {
    plotPost( BESTobj$mu1 ,  xlim=xlim , cex.lab = 1.75 , credMass=credMass, showCurve=showCurve , showMode=TRUE,
                  ROPE=ROPEm, compVal=compValm,
                  xlab=bquote(mu) , main="Mean" , mainColor = mainColor, comparisonColor = comparisonColor, ROPEColor = ROPEColor)
  } else {
    plotPost( BESTobj$mu1 ,  xlim=xlim , cex.lab = 1.75 , credMass=credMass, showCurve=showCurve , showMode=TRUE,
                  xlab=bquote(mu[1]) , main=paste("Group",1,"Mean") ,
                  mainColor = mainColor, comparisonColor = comparisonColor, ROPEColor = ROPEColor)
    plotPost( BESTobj$mu2 ,  xlim=xlim , cex.lab = 1.75 , credMass=credMass, showCurve=showCurve , showMode=TRUE,
                    xlab=bquote(mu[2]) , main=paste("Group",2,"Mean") , 
                    mainColor = mainColor, comparisonColor = comparisonColor, ROPEColor = ROPEColor)
    plotPost( BESTobj$mu1-BESTobj$mu2 , compVal=compValm ,  showCurve=showCurve , credMass=credMass,
                    xlab=bquote(mu[1] - mu[2]) , cex.lab = 1.75 , ROPE=ROPEm ,
                    main="Difference of Means" ,
                    mainColor = mainColor, comparisonColor = comparisonColor, ROPEColor = ROPEColor,
                    showMode=TRUE)
  }