R/srswr.R

"srswr" <-
function(n,N) as.vector(rmultinom(1,n,rep(n/N,times=N)))

Try the sampling package in your browser

Any scripts or data that you put into this service are public.

sampling documentation built on Nov. 2, 2023, 6:26 p.m.