Orlitsky's diminishing attenuation estimator (q2/3).
orlitsky(counts)A vector of counts for which to approximate discrete probablities.
A named vector `p` assigning a probability to each event in data. Those do not sum up to one since there is also a remaining probability to observe a new event given as p(new) = 1 - sum(p).
x <- sample(1:10, 100, replace=TRUE)
p <- orlitsky(x)