R/srswor.R

"srswor" <-
function(n,N)
{s<-rep(0,times=N);s[sample.int(N,n)]<-1;s}

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.