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), ")"),
main = "Blue is density, red is cumulative distribution function",
sub = "Purple lines are the 10,20,...,90 percentiles", col = "blue")
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