* Как осуществить n независимых выборок объёма m из одного и того же файла?
* Ответ размещён в SPSSX-L. Автор: Raynald Levesque, rlevesque@videotron.ca, 14.04.2001.
* www.spsstools.net
PRESERVE.
SET MPRINT=yes.
*///////////////////////////////.
DEFINE !getsamp (nbcases=!TOKENS(1) /nbfiles=!TOKENS(1) )
!DO !var=1 !TO !nbfiles
GET FILE='C:\\Program Files\\SPSS\\GSS93 subset.sav'.
COMPUTE draw=UNIFORM(1).
COMPUTE dummy=1.
RANK VARIABLES=draw BY dummy /RANK INTO rank1.
SELECT IF rank1 LE !nbcases.
SAVE OUTFILE=!QUOTE(!CONCAT("c:\\Temp\\new file ",!var,".sav")).
!DOEND
!ENDDEFINE.
*///////////////////////////////.
*Следующая строка вызывает макрос, который осуществляет нужные выборки.
!getsamp nbcases=300 nbfiles=4.
RESTORE.