* Encoding: UTF-8.
*** Planos Completamente Aleatorizados
*** Valentim Rodrigues Alferes (Universidade de Coimbra, 2002)
*** valferes@fpce.uc.pt
**
** Esta Sintaxe distribui aleatoriamente as unidades experimentais
** (sujeitos) pelas condições ou tratamentos experimentais e pode ser
** utilizada para planos com “n” igual ou diferente por tratamento.
** 
** Para Planos Aleatorizados de Blocos (Simples ou Generalizados) - e,
** também, para Planos Completamente Aleatorizados com “n” igual por
** tratamento – pode utilizar outra rotina neste mesmo site.
**
** No exemplo, temos 3 tratamentos (A, B e C), respectivamente, com
** 8, 9 e 6 sujeitos.

DATA LIST LIST /TRAT(A20) N_TRAT(F8.0).
* Introduza as designações dos tratamentos e o número de sujeitos por
* tratamento.
BEGIN DATA
A 8
B 9
C 6
END DATA.

LOOP CASES=1 TO N_TRAT.
XSAVE OUTFILE='%temp%\OUTF1'/KEEP=TRAT.
END LOOP.
EXECUTE.
GET FILE='%temp%\OUTF1'.

SET SEED RANDOM.
COMPUTE RANDOM=UNIFORM(1).
SORT CASES BY RANDOM(A).
RANK VARIABLES=RANDOM(A).
COMPUTE ID=RRANDOM.
FORMATS ID(F8.0).
LIST ID TRAT.
SORT CASES BY TRAT (A) ID (A).
SPLIT FILE SEPARATE BY TRAT.
LIST ID.