mu = 4; rho = 0.4
x = seq(0, 2*pi, len=501)
plot(x, dcard(x, mu, rho), type="l", las=1, ylim=c(0,1), col="blue",
ylab=paste("[dp]card(mu=", mu, ", rho=", rho, ")"),
main="Blue is density, red is cumulative distribution function",
sub="Purple lines are the 10,20,...,90 percentiles")
lines(x, pcard(x, mu, rho), col="red")
probs = seq(0.1, 0.9, by=0.1)
Q = qcard(probs, mu, rho)
lines(Q, dcard(Q, mu, rho), col="purple", lty=3, type="h")
lines(Q, pcard(Q, mu, rho), col="purple", lty=3, type="h")
abline(h=c(0,probs,1), v=c(0,2*pi), col="purple", lty=3)
max(abs(pcard(Q, mu, rho) - probs)) # Should be 0
Run the code above in your browser using DataLab