dlog(1:20, 0.5)
rlog(20, 0.5)
prob = 0.8; x = 1:10
plot(x, dlog(x, prob = prob), type = "h", ylim = 0:1,
sub = "prob=0.8", las = 1, col = "blue", ylab = "Probability",
main="Logarithmic distribution: blue=density; red=distribution function")
lines(x + 0.1, plog(x, prob = prob), col = "red", lty = 3, type = "h")
Run the code above in your browser using DataLab