## Randomly generated data from the zeta distribution.
set.seed(100)
x <- rzeta(n = 100, s = 1.3)
hist(x, main = "Randomly Generated Data", prob = TRUE)
x.1 <- sort(x)
y <- dzeta(x = x.1, s = 1.3)
lines(x.1, y, col = 2, lwd = 2)
plot(x.1, pzeta(q = x.1, s = 1.3), type = "l",
xlab = "x", ylab = "Cumulative Probabilities")
qzeta(p = 0.20, s = 1.3, lower.tail = FALSE)
qzeta(p = 0.80, s = 1.3)
Run the code above in your browser using DataLab