dhzeta(1:20, 2.1)
rhzeta(20, 2.1)
round(1000 * dhzeta(1:8, 2))
table(rhzeta(1000, 2))
if (FALSE) shape <- 1.1; x <- 1:10
plot(x, dhzeta(x, shape = shape), type = "h", ylim = 0:1,
sub = paste("shape =", shape), las = 1, col = "blue",
ylab = "Probability", lwd = 2,
main = "Haight's zeta: blue = density; orange = CDF")
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