dist <- dist_logarithmic(prob = c(0.33, 0.66, 0.99))
dist
#> <distribution[3]>
#> [1] Logarithmic(0.33) Logarithmic(0.66) Logarithmic(0.99)
mean(dist)
#> [1] 1.229875 1.799369 21.497577
variance(dist)
#> [1] 0.3230419 2.0545331 1687.6118748
support(dist)
#> <support_region[3]>
#> [1] N+ N+ N+
generate(dist, 10)
#> [[1]]
#> [1] 3 2 1 2 1 2 2 1 1 1
#>
#> [[2]]
#> [1] 1 1 1 1 1 1 2 1 1 1
#>
#> [[3]]
#> [1] 1 7 37 66 17 1 1 8 31 4
#>
density(dist, 2)
#> [1] 0.1359627 0.2018892 0.1064130
density(dist, 2, log = TRUE)
#> [1] -1.995375 -1.600036 -2.240427
cdf(dist, 4)
#> [1] 0.9972938 0.9464773 0.4437691
quantile(dist, 0.7)
#> [1] 1 2 16
![[Stable]](figures/lifecycle-stable.svg)