# NOT RUN {
probs <- complete_rs_probabilities(N = 100)
table(probs)
probs <- complete_rs_probabilities(N = 100, n = 50)
table(probs)
probs <- complete_rs_probabilities(N=100, prob = .3)
table(probs)
# }
Run the code above in your browser using DataLab