1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
* Осуществить преобразования Бокса-Кокса(Box-Cox) для 31 значения лямбда между -2 и 1 (с шагом .1).
* Автор: Raynald Levesque, 8.11.2003.

GET FILE='c:\\program files\\spss\\employee data.sav'.
COMPUTE var1=salary.

VECTOR lam(31) /xl(31).
LOOP idx=1 TO 31.
- COMPUTE lam(idx)=-2.1 + idx * .1.
- DO IF lam(idx)=0.
-   COMPUTE xl(idx)=LN(var1).
- ELSE.
-   COMPUTE xl(idx)=(var1**lam(idx) - 1)/lam(idx).
- END IF.
END LOOP.
EXECUTE.