# NOT RUN {
dhzeta(1:20, 2.1)
rhzeta(20, 2.1)
round(1000 * dhzeta(1:8, 2))
table(rhzeta(1000, 2))
# }
# NOT RUN {
shape <- 1.1; x <- 1:10
plot(x, dhzeta(x, shape = shape), type = "h", ylim = 0:1, lwd = 2,
sub = paste("shape =", shape), las = 1, col = "blue", ylab = "Probability",
main = "Haight's zeta: blue = density; orange = distribution function")
lines(x+0.1, phzeta(x, shape = shape), col = "orange", lty = 3, lwd = 2,
type = "h")
# }
Run the code above in your browser using DataLab