dfOut <- samp(method=pps,
df=ExampleData,
nsamp="nsample",
stratid="stratum",
prn="rands",
size="sizeM")
dfOut <- samp(method=srs,
df=ExampleData,
nsamp="nsample",
stratid="stratum",
prn="rands")
Run the code above in your browser using DataLab