#senate.mtb
noecho

note This macro will perform random sampling
note of column 17, keeping track of the numbers of
note Democrats and Republicans in each sample and
note stores the proportion of Democrats for each 
note sample in C48.
note
note The user is to specify the size of the sample to be chosen.
note
note

note
note How many Senators are to be chosen in each sample?
set 'terminal' c63;
nobs 1.
copy c63 k63
note
set c6
1:100
end
note
note ***** How many samples do you want to select?*****
set 'terminal' c63;
nobs 1.
Copy c63 k1
name c48 'propDem2'
exec '10000senators\senate1.mtb' k1
echo
end