if (FALSE) x <- seq(-2, 8, by = 0.1); mytau <- 0.25; mylambda <- 0.2
plot(x, dextlogF(x, mylambda, tau = mytau), type = "l",
las = 1, col = "blue", ylab = "PDF (log-scale)", log = "y",
main = "Extended log-F density function is blue",
sub = "Asymmetric Laplace is orange dashed")
lines(x, dalap(x, tau = mytau, scale = 3.5), col = "orange", lty = 2)
abline(v = 0, col = "gray", lty = 2)
Run the code above in your browser using DataLab