distA <- caldist(130, 20, cc=0) # normal distribution
distB <- caldist(130, 20, cc=1, bombalert=FALSE) # calibrated distribution
plot(distB, type="l")
lines(distA, col=2)
hpd.overlap(distA, distB)
Run the code above in your browser using DataLab