st: RE: how can I tell Stata to draw many random samples without replacement

[Steven Samuels <ssamuels@albany.edu>]

Here's another way:

/* draw 'nsamps' random samples of size 'sampsize' from a population of size 'popsize */
set more off
capture log close
log using rsamp, text replace

clear
set seed  234568888

local sampsize  3
local popsize   5
local nsamps    2

forvalues j=1/`nsamps' {
clear
set obs `popsize'    // population size
tempfile t`j'
gen pick=_n
gen u=uniform()
sort u
keep in 1/`sampsize'
gen sample=`j'
save "`t`j''"
}

use "`t1'"
list
forvalues j=2/`nsamps' {
append using "`t`j''"
}

sum
sort pick
drop u
save d01, replace