m = 1.5; SD=exp(0)
x = seq(-1, 4, len=501)
plot(x, dfnorm(x, m=m, sd=SD), type="l", ylim=0:1, las=1,
ylab=paste("fnorm(m=", m, ", sd=", round(SD, dig=3), ")"), col="blue",
main="Blue is density, red is cumulative distribution function",
sub="Purple lines are the 10,20,...,90 percentiles")
lines(x, pfnorm(x, m=m, sd=SD), col="red")
abline(h=0)
probs = seq(0.1, 0.9, by=0.1)
Q = qfnorm(probs, m=m, sd=SD)
lines(Q, dfnorm(Q, m=m, sd=SD), col="purple", lty=3, type="h")
lines(Q, pfnorm(Q, m=m, sd=SD), col="purple", lty=3, type="h")
abline(h=probs, col="purple", lty=3)
max(abs(pfnorm(Q, m=m, sd=SD) - probs)) # Should be 0
Run the code above in your browser using DataLab