* Encoding: UTF-8.
** Nota 2: Determinação aleatória do número de sujeitos por tratamento
**
** Se tem “N” sujeitos e “p” tratamentos e deseja que o SPSS determine 
** aleatoriamente o tratamento a atribuir aos sujeitos e o número de
** sujeitos por tratamento, execute a seguinte sintaxe.
** 
** Exemplo: 40 sujeitos e 6 tratamentos (A, B, C, D, E e F).

DATA LIST FREE /TRAT(A20).
* Introduza a designação dos tratamentos.
BEGIN DATA
A B C D E F
END DATA.
COMPUTE TRATM=$CASENUM.
SAVE OUTFILE='%temp%\OUTF1'.

INPUT PROGRAM.
* Introduza o N (número total de sujeitos).
LOOP N_CASES=1 TO 40.
END CASE.
END LOOP.
END FILE.
END INPUT PROGRAM.

* Introduza o número de tratamentos.
COMPUTE N_TRAT= 6.
SET SEED RANDOM.
COMPUTE LIM=N_TRAT+.5.
COMPUTE RANDOM1 = RV.UNIFORM(0.5,LIM).
COMPUTE TRATM=RND (RANDOM1).
SORT CASES BY TRATM (A).
MATCH FILES/FILE=*/TABLE='%temp%\OUTF1'/BY TRATM.
SET SEED RANDOM.
COMPUTE RANDOM2 = UNIFORM(1).
SORT CASES BY RANDOM2 (A).
COMPUTE ID=$CASENUM.
EXECUTE.
FORMATS ID(F8.0).
LIST ID TRAT.
SORT CASES BY TRAT (A) ID (A).
SPLIT FILE SEPARATE BY TRAT.
LIST ID.