Urn sampling without replacement: enumerative combinatorics in R