Случайно отобрать n наблюдений из каждой страты

* Осуществить случайную выборку объёма 40 из каждой страты.
* Хотя в следующем примере только 2 страты (группы), метод работает при любом числе групп.
* Размещено в SPSSX-L. Автор: Raynald Levesque, 18.06.2005 
* http://www.spsstools.net

INPUT PROGRAM.
LOOP id=1 TO 949.
- COMPUTE grp=(id<825).
- END CASE.
END LOOP.
END FILE.
END INPUT PROGRAM.

FREQ VAR=grp.

COMPUTE draw=UNIFORM(1).
RANK VARIABLES=draw BY grp  /RANK INTO rdraw .
SELECT IF rdraw<41.
FREQ VAR=grp.