powered by
getProb(prob, size)
setup
SampleSetup
pweights <- sample(1:5, 25, replace = TRUE) getProb(pweights, 10)
Run the code above in your browser using DataLab