orlitsky.RdOrlitsky's diminishing attenuation estimator (q2/3).
orlitsky(counts)
| 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)