## Not run:
# shape <- 0.5; scale <- 2; nn <- 501
# x <- seq(-0.50, 6.0, len = nn)
# plot(x, dexplog(x, scale, shape), type = "l", las = 1, ylim = c(0, 1.1),
# ylab = paste("[dp]explog(shape = ", shape, ", scale = ", scale, ")"),
# col = "blue", cex.main = 0.8,
# main = "Blue is density, orange is cumulative distribution function",
# sub = "Purple lines are the 10,20,...,90 percentiles")
# lines(x, pexplog(x, scale, shape), col = "orange")
# probs <- seq(0.1, 0.9, by = 0.1)
# Q <- qexplog(probs, scale, shape = shape)
# lines(Q, dexplog(Q, scale, shape = shape), col = "purple", lty = 3, type = "h")
# lines(Q, pexplog(Q, scale, shape = shape), col = "purple", lty = 3, type = "h")
# abline(h = probs, col = "purple", lty = 3)
# max(abs(pexplog(Q, scale, shape = shape) - probs)) # Should be 0
# ## End(Not run)
Run the code above in your browser using DataLab