data(bot)
bot
# samples 5 bottles no matter their type
sample_n(bot, 5)
# 5 bottles of beer and of whisky
table(sample_n(bot, 5, fac="type"))
# many repetitions
table(names(sample_n(bot, 400, replace=TRUE)))
Run the code above in your browser using DataLab