dist <- dist_pareto(shape = c(10, 3, 2, 1), scale = rep(1, 4))
dist
#> <distribution[4]>
#> [1] Pareto(10, 1) Pareto(3, 1) Pareto(2, 1) Pareto(1, 1)
mean(dist)
#> [1] 0.1111111 0.5000000 1.0000000 Inf
variance(dist)
#> [1] 0.0154321 0.7500000 Inf NaN
support(dist)
#> <support_region[4]>
#> [1] [0,Inf) [0,Inf) [0,Inf) [0,Inf)
generate(dist, 10)
#> [[1]]
#> [1] 0.09178140 0.69377631 0.01955288 0.04044014 0.04252254 0.11905273
#> [7] 0.25854842 0.07708838 0.16507562 0.13667295
#>
#> [[2]]
#> [1] 3.44056443 0.18631915 0.30523703 0.21917865 0.02587993 0.19703514
#> [7] 1.37608311 1.13166571 0.02491244 0.58003814
#>
#> [[3]]
#> [1] 1.0912904 0.7446952 0.6211934 0.8979296 0.2576979 0.8100637 0.9182629
#> [8] 0.6333343 0.6141993 0.1000270
#>
#> [[4]]
#> [1] 1.23969725 0.41354898 0.26198551 0.23070565 1.54805185 2.54564185
#> [7] 0.01564731 2.88936211 0.15938565 0.38663129
#>
density(dist, 2)
#> [1] 5.645029e-05 3.703704e-02 7.407407e-02 1.111111e-01
density(dist, 2, log = TRUE)
#> [1] -9.782150 -3.295837 -2.602690 -2.197225
cdf(dist, 4)
#> [1] 0.9999999 0.9920000 0.9600000 0.8000000
quantile(dist, 0.7)
#> [1] 0.1279449 0.4938016 0.8257419 2.3333333