dist <- dist_inverse_exponential(rate = 1:5)
dist
if (FALSE) { # requireNamespace("actuar", quietly = TRUE)
mean(dist)
variance(dist)
support(dist)
generate(dist, 10)
density(dist, 2)
density(dist, 2, log = TRUE)
cdf(dist, 4)
quantile(dist, 0.7)
}
Run the code above in your browser using DataLab