# NOT RUN {
S <- complete_rs(N = 100)
table(S)
S <- complete_rs(N = 100, n = 50)
table(S)
S <- complete_rs(N = 100, prob = .111)
table(S)
# If N = n, sample with 100% probability...
complete_ra(N=2, n=2)
# except if N = n = 1, in which case sample with 50% probability
complete_ra(N=1, n=1)
# }
Run the code above in your browser using DataLab