DECILE.SPS ( COMPUTES DECILE SHARES FOR SPECIFIED INCOME)

Note: User must specify the following variables on the keep line:

1) HWEIGHT
2) SPECIFY INCOME VARIABLE OF HER/HIS CHOICE

User must set specified income = Y in main program

ROUTINE:

SORT CASES BY Y (A)

WEIGHT BY HWEIGHT

FREQUENCIES VARIABLES= Y / NTILES= 10 / FORMAT= NOTABLE

COMPUTE CUMWGT= CUMWGT + HWEIGHT

COMPUTE CUMAGGY= CUMAGGY + (HWEIGHT*Y)

LEAVE CUMWGT CUMAGGY

SORT CASES BY Y (D)

DO IF ($CASENUM EQ 1 )

COMPUTE TOTPOP= CUMWGT

COMPUTE TOTAGG= CUMAGGY

END IF

LEAVE TOTPOP TOTAGG

SORT CASES BY Y (A)

COMMENT ********** ENTER DESIRED QUANTILE IN PERCENT HERE ******

COMPUTE PROPOR = 0.1

COMPUTE QUANTSIZ= TOTPOP*PROPOR

COMPUTE QUANTILE= TRUNC((CUMWGT/QUANTSIZ)) + 1

IF ( QUANTILE GT ( 1.0/PROPOR )) QUANTILE = TRUNC((1.0/PROPOR))

LEAVE QUANTILE

WEIGHT BY HWEIGHT

AGGREGATE OUTFILE= *

   /PRESORTED

   /BREAK=QUANTILE

   /N=N

   /AVEY = MEAN(Y)

   /POPAGG = MEAN(TOTAGG)

  /SUMY = SUM(Y)

COMPUTE SHARE = (SUMY/POPAGG)*100

COMPUTE CUMSHARE = (CUMSHARE+SHARE)

LEAVE CUMSHARE

LIST VARIABLES = QUANTILE N AVEY SHARE CUMSHARE