*-------------------------Question 1.

DATA list records=2
    FILE = "c:\temp\labdata\AFIFI.DAT"
    / IDNUM 	1-4 
       AGE 		5-8 
       HEIGHT 	9-12 
       SEX 		13-15 
       SURVIVE 	16 
       SHOKTYPE   17-20 
       SBP1 	21-24
       MAP1 	25-28
       HEART1 	29-32 
       DBP1 	33-36 
       CVP1 	37-40 (1)
       BSA1 	41-44 (2) 
       CARDIAC1   45-48 (2) 
	 APPTIME1   49-52 (1)
	 CIRC1 	53-56 (1)
       URINE1 	57-60 
	 PLASMA1 	61-64 (1)
	 REDCELL1   65-68 (1)
       HGB1 	69-72 (1)
	 HCT1		73-76 (1)
    /  SBP2 	21-24
       MAP2 	25-28
       HEART2 	29-32 
       DBP2 	33-36 
       CVP2 	37-40 (1)
       BSA2 	41-44 (2) 
       CARDIAC2   45-48 (2) 
	 APPTIME2   49-52 (1)
	 CIRC2 	53-56 (1)
       URINE2 	57-60 
	 PLASMA2 	61-64 (1)
	 REDCELL2   65-68 (1)
       HGB2 	69-72 (1)
	 HCT2		73-76 (1).
EXECUTE.

VALUE LABELS Sex (1) "Male" (2) "Female"
 / survive (1) "Survived" (3) "Died"
 / Shoktype (2) "Non-Shock" (3) "Hypovolemic" (4) "Cardiogenic" (5) "Bacterial" (6) "Neurogenic" (7) "Other".

RECODE
  SHOKTYPE
  (2=2)  (3 thru 7=1)  INTO  SHOCK .
EXECUTE .
value labels shock (1) "Shock" (2) "Non-Shock".
 
RECODE
  SURVIVE
  (1=2)  (3=1)  INTO  DIED .
EXECUTE .
value labels DIED (1) "Died" (2) "Lived".

RECODE
  URINE1
  (MISSING=SYSMIS) (0=1) (ELSE=2)  INTO  UR1 .
EXECUTE .
VALUE LABELS UR1 (1) "No Urinary Output" (2) "Some Urinary Output".
RECODE
  URINE2
  (MISSING=SYSMIS) (0=1) (ELSE=2)  INTO  UR2 .
EXECUTE .
VALUE LABELS UR2 (1) "No Urinary Output" (2) "Some Urinary Output".


RECODE
  SHOKTYPE
   (2=0)  (3 thru 7=1)  INTO  SHOCKDUM .
EXECUTE .
RECODE
  SURVIVE
  (1=0)  (3=1)  INTO  DIEDDUM .
EXECUTE .

FREQUENCIES
  VARIABLES=SEX SURVIVE SHOKTYPE SHOCK DIED UR1 UR2 SHOCKDUM DIEDDUM
  /ORDER=  ANALYSIS .
DESCRIPTIVES
  VARIABLES=IDNUM AGE HEIGHT SEX SURVIVE SHOKTYPE SBP1 MAP1 HEART1 DBP1 CVP1 BSA1 CARDIAC1 APPTIME1 CIRC1 URINE1 PLASMA1
  REDCELL1 HGB1 HCT1 SBP2 MAP2 HEART2 DBP2 CVP2 BSA2 CARDIAC2 APPTIME2 CIRC2 URINE2 PLASMA2 REDCELL2 HGB2 HCT2 UR1 SHOCK DIED
  UR2 SHOCKDUM DIEDDUM
  /STATISTICS=MEAN STDDEV MIN MAX .

*-------------------------------Question 2.
CROSSTABS
  /TABLES=SHOKTYPE  BY SURVIVE
  /FORMAT= AVALUE TABLES
  /STATISTIC=CHISQ
  /CELLS= COUNT ROW
  /COUNT ROUND CELL .

*-------------------------------Question 3.
CROSSTABS
  /TABLES=SHOCK  BY DIED
  /FORMAT= AVALUE TABLES
  /STATISTIC=CHISQ RISK
  /CELLS= COUNT ROW
  /COUNT ROUND CELL .

*------------------------------Question 4.
CROSSTABS
  /TABLES=UR1  BY UR2
  /FORMAT= AVALUE TABLES
  /STATISTIC=MCNEMAR
  /CELLS= COUNT TOTAL
  /COUNT ROUND CELL .

*------------------------------Question 5.
REGRESSION
  /MISSING LISTWISE
  /STATISTICS COEFF OUTS R ANOVA COLLIN TOL
  /CRITERIA=PIN(.05) POUT(.10)
  /NOORIGIN
  /DEPENDENT MAP2
  /METHOD=ENTER SHOCKDUM MAP1 SBP1 BSA1 URINE1
  /SCATTERPLOT=(*ZRESID ,*ZPRED )
  /RESIDUALS HIST(ZRESID) NORM(ZRESID) .

*-----------------------------Question 6.
LOGISTIC REGRESSION  DIEDDUM
  /METHOD = ENTER SHOKTYPE
  /CONTRAST (SHOKTYPE)=Indicator(1)
  /CRITERIA = PIN(.05) POUT(.10) ITERATE(20) CUT(.5) .


*-----------------------------Question 7.
LOGISTIC REGRESSION  DIEDDUM
  /METHOD = ENTER SHOCKDUM BSA1 SBP1
  /CRITERIA = PIN(.05) POUT(.10) ITERATE(20) CUT(.5) .