Get the max proportion
Examples
x <- sample(letters[1:3], prob = 1:3, size = 10000, replace = TRUE)
count_distr_max(x)
#> [1] 0.5044
Get the max proportion
x <- sample(letters[1:3], prob = 1:3, size = 10000, replace = TRUE)
count_distr_max(x)
#> [1] 0.5044