loc = 0; sigma = exp(0.5); kappa = 1
x = seq(-0.2, 5, by=0.01)
plot(x, dloglap(x, loc, sigma, kappa=kappa), type="l", col="blue",
main="Blue is density, red is cumulative distribution function",
ylim=c(0,1), sub="Purple are 5,10,...,95 percentiles", las=1, ylab="")
abline(h=0, col="blue", lty=2)
lines(qloglap(seq(0.05,0.95,by=0.05), loc, sigma, kappa=kappa),
dloglap(qloglap(seq(0.05,0.95,by=0.05), loc, sigma, kappa=kappa),
loc, sigma, kappa=kappa), col="purple", lty=3, type="h")
lines(x, ploglap(x, loc, sigma, kappa=kappa), type="l", col="red")
abline(h=0, lty=2)
ploglap(qloglap(seq(0.05,0.95,by=0.05), loc, sigma, kappa=kappa),
loc, sigma, kappa=kappa)
Run the code above in your browser using DataLab