shape1 = 2; shape2 = 2; nn = 201; # shape1 = shape2 = 0.5;
x = seq(0.0 , 1.00, len=nn)
x = seq(-0.05, 1.05, len=nn)
plot(x, dkumar(x, shape1, shape2), type="l", las=1, ylim=c(0,1.5),
ylab=paste("fkumar(shape1=", shape1, ", shape2=", shape2, ")"),
col="blue", cex.main=0.8,
main="Blue is density, red is cumulative distribution function",
sub="Purple lines are the 10,20,...,90 percentiles")
lines(x, pkumar(x, shape1, shape2), col="red")
probs = seq(0.1, 0.9, by=0.1)
Q = qkumar(probs, shape1, shape2)
lines(Q, dkumar(Q, shape1, shape2), col="purple", lty=3, type="h")
lines(Q, pkumar(Q, shape1, shape2), col="purple", lty=3, type="h")
abline(h=probs, col="purple", lty=3)
max(abs(pkumar(Q, shape1, shape2) - probs)) # Should be 0
Run the code above in your browser using DataLab