shape1 = 0.1; shape2 = 4; m = 1
x = seq(-10, 2, len=501)
plot(x, dbetanorm(x, shape1, shape2, m=m), type="l", ylim=0:1, las=1,
ylab=paste("betanorm(",shape1,", ",shape2,", m=",m, ", sd=1)", sep=""),
main="Blue is density, red is cumulative distribution function",
sub="Purple lines are the 10,20,...,90 percentiles", col="blue")
lines(x, pbetanorm(x, shape1, shape2, m=m), col="red")
abline(h=0)
probs = seq(0.1, 0.9, by=0.1)
Q = qbetanorm(probs, shape1, shape2, m=m)
lines(Q, dbetanorm(Q, shape1, shape2, m=m), col="purple", lty=3, type="h")
lines(Q, pbetanorm(Q, shape1, shape2, m=m), col="purple", lty=3, type="h")
abline(h=probs, col="purple", lty=3)
pbetanorm(Q, shape1, shape2, m=m) - probs # Should be all 0
Run the code above in your browser using DataLab