Statistical Analysis: an Introduction using R/R/Objects

table() is a more advanced version of tabulate(): it doesn't produce a vector, but a "table" object.

Input:

'"`UNIQ--pre-00000000-QINU`"'

Result:

> table(replicate(1000, max(table(sample(1:6, 5, TRUE)))))

  1   2   3   4   5 
 90 694 198  17   1

You may get slightly different numbers, because of the random nature of the simulation. But over 1000 times, they should even out