# NOT RUN {
dlog(1:20, 0.5)
rlog(20, 0.5)
# }
# NOT RUN {
 shape <- 0.8; x <- 1:10
plot(x, dlog(x, shape = shape), type = "h", ylim = 0:1,
     sub = "shape=0.8", las = 1, col = "blue", ylab = "shape",
     main = "Logarithmic distribution: blue=density; orange=distribution function")
lines(x + 0.1, plog(x, shape = shape), col = "orange", lty = 3, type = "h") 
# }
Run the code above in your browser using DataLab