WEIGHT BY OldWt. RECODE Redistrb BigBusnN Wealth RichLaw Indust4 (1 thru 5=Copy) (ELSE=SYSMIS) INTO s1 s2 s3 s4 s5. EXECUTE. COMPUTE lrscale=s1 + s2 + s3 + s4 + s5. EXECUTE. USE ALL. COMPUTE filter_$=(Marstat >= 1 & Marstat <= 5 & SRHealth >= 1 & SRHealth <= 5 & RAge <= 64). VARIABLE LABELS filter_$ 'Marstat >= 1 & Marstat <= 5 & SRHealth >= 1 & SRHealth <= 5 & RAge '+ '<= 64 (FILTER)'. VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'. FORMATS filter_$ (f1.0). FILTER BY filter_$. EXECUTE. CROSSTABS /TABLES=MarStat BY SRHealth /FORMAT=AVALUE TABLES /STATISTICS=CHISQ PHI /CELLS=COUNT ROW /COUNT ROUND CELL. CROSSTABS /TABLES=MarStat BY SRHealth BY RSex /FORMAT=AVALUE TABLES /STATISTICS=CHISQ PHI /CELLS=COUNT ROW /COUNT ROUND CELL. USE ALL. COMPUTE filter_$=(Marstat >= 1 & Marstat <= 5 & SRHealth >= 1 & SRHealth <= 5 & RAge <= 64 & MarStat ~= 4). VARIABLE LABELS filter_$ 'Marstat >= 1 & Marstat <= 5 & SRHealth >= 1 & SRHealth <= 5 & RAge '+ '<= 64 & MarStat ~= 4 (FILTER)'. VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'. FORMATS filter_$ (f1.0). FILTER BY filter_$. EXECUTE. RECODE SRHealth (5=4) (ELSE=Copy) INTO srhealth2. EXECUTE. CROSSTABS /TABLES=MarStat BY srhealth2 BY RSex /FORMAT=AVALUE TABLES /STATISTICS=CHISQ PHI /CELLS=COUNT ROW /COUNT ROUND CELL. USE ALL. COMPUTE filter_$=(RClass >= 1 & RClass <= 7 & S2Class >= 1 & S2Class <= 7). VARIABLE LABELS filter_$ 'RClass >= 1 & RClass <= 7 & S2Class >= 1 & S2Class <= 7 (FILTER)'. VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'. FORMATS filter_$ (f1.0). FILTER BY filter_$. EXECUTE. ONEWAY lrscale BY RClass /STATISTICS DESCRIPTIVES HOMOGENEITY /MISSING ANALYSIS. UNIANOVA lrscale BY RClass S2Class /METHOD=SSTYPE(3) /INTERCEPT=INCLUDE /PRINT=HOMOGENEITY DESCRIPTIVE /CRITERIA=ALPHA(.05) /DESIGN=RClass S2Class RClass*S2Class.