Взвешивание по 2 и более переменным

* Вот как можно взвесить данные по двум или большему числу переменных.
* Решение размещено в SPSSX-L, автор: Joao Duarte ( jd@proade.com ), 19.10.2004.

***************   начало макроса ***************.

DEFINE !pondx (!POSITIONAL !ENCLOSE('[',']'))
WEIGHT OFF.
!LET !nnn=1

!DO !var !IN (!1)
!LET !nnn2=!nnn
!IF (!nnn=1) !then !LET !varp=!var !IFEND

!IF (!nnn=2) !THEN
!LET !valp=!var
SORT CASES BY !varp.
COMPUTE pondt = pond.
IF !varp=LAG(!varp) pondt = pondt + LAG(pondt).
SORT CASES BY !varp (A) pondt (D).
IF !varp=LAG(!varp) pondt=LAG(pondt).
COMPUTE pond=pond * (!valp / pondt).
!IFEND

!IF (!nnn2=1) !THEN !LET !nnn=2 !IFEND
!IF (!nnn2=2) !THEN !LET !nnn=1 !IFEND

!DOEND
!ENDDEFINE.

****************   конец макроса  ***************.


**************  пример **************.

* Создадим пример данных.

DATA LIST LIST /quest var1 var2.
BEGIN DATA
1        1        1
2        1        1
8        1        1
9        1        1
3        2        2
4        2        2
5        1        2
5        2        3
6        2        3
7        2        3
END DATA.

COMPUTE pond=1.

IF var1=1 univ1=70.
IF var1=2 univ1=130.

IF var2=1 univ2=40.
IF var2=2 univ2=140.
IF var2=3 univ2=20.

****  univ1 , univ2  - численность объектов с определёнными параметрами в генеральной совокупности.

!pondx [var1 univ1 var2 univ2].
!pondx [var1 univ1 var2 univ2].
!pondx [var1 univ1 var2 univ2].
* .....
* .....
!pondx [var1 univ1 var2 univ2].

*можно выполнять макрос несколько раз, до тех пор, пока не будут получены приемлемые результаты;
 можно использовать более 2 переменных для взвешивания .
*после окончания работы макроса можно оставить для взвешивания переменную pond и 
 удалить univ1, univ2 и pondt.

WEIGHT OFF.
FREQ VAR= var1 var2.

WEIGHT BY pond.
FREQ VAR= var1 var2.
*******************   конец примера ***************.