WEIGHT BY OldWt. FREQUENCIES VARIABLES=Redistrb BigBusnN Wealth RichLaw Indust4 /BARCHART FREQ /ORDER=ANALYSIS. RECODE Redistrb BigBusnN Wealth RichLaw Indust4 (1 thru 5=Copy) (ELSE=SYSMIS) INTO s1 s2 s3 s4 s5. RECODE HWifeFfl GaySex DeathApp DoleFidl (1 thru 5=Copy) (ELSE=SYSMIS). EXECUTE. COMPUTE lrscale=s1 + s2 + s3 + s4 + s5. EXECUTE. CORRELATIONS /VARIABLES=leftrigh lrscale /PRINT=TWOTAIL NOSIG /MISSING=PAIRWISE. FREQUENCIES VARIABLES=lrscale /HISTOGRAM /ORDER=ANALYSIS. MEANS TABLES=lrscale BY PartyIDN RClass /CELLS MEAN COUNT STDDEV /STATISTICS ANOVA. FACTOR /VARIABLES s1 s2 s3 s4 s5 /MISSING LISTWISE /ANALYSIS s1 s2 s3 s4 s5 /PRINT INITIAL EXTRACTION /PLOT EIGEN /CRITERIA FACTORS(2) ITERATE(25) /EXTRACTION PC /ROTATION NOROTATE /METHOD=CORRELATION. RELIABILITY /VARIABLES=s1 s2 s3 s4 s5 /SCALE('ALL VARIABLES') ALL /MODEL=ALPHA /STATISTICS=SCALE CORR /SUMMARY=TOTAL. CORRELATIONS /VARIABLES=s1 s2 s3 s4 s5 lrscale GaySex DeathApp DoleFidl HWifeFfl /PRINT=TWOTAIL NOSIG /MISSING=PAIRWISE. CORRESPONDENCE TABLE=s3(1 5) BY s2(1 5) /DIMENSIONS=2 /MEASURE=CHISQ /STANDARDIZE=RCMEAN /NORMALIZATION=SYMMETRICAL /PRINT=TABLE RPOINTS CPOINTS /PLOT=NDIM(1,MAX) BIPLOT(20). *************************************************************** USE ALL. COMPUTE filter_$=(PartyIDN = 3). VARIABLE LABELS filter_$ 'PartyIDN = 3 (FILTER)'. VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'. FORMATS filter_$ (f1.0). FILTER BY filter_$. EXECUTE. FREQUENCIES VARIABLES=lrscale /STATISTICS=STDDEV SEMEAN MEAN SKEWNESS SESKEW KURTOSIS SEKURT /HISTOGRAM NORMAL /ORDER=ANALYSIS. FILTER OFF. USE ALL. EXECUTE. ***Sampling error syntax window*** FREQUENCIES VARIABLES=lrmean /FORMAT=NOTABLE /STATISTICS=STDDEV SEMEAN MEAN SKEWNESS SESKEW KURTOSIS SEKURT /HISTOGRAM NORMAL /ORDER=ANALYSIS. ***Sampling error syntax window*** FREQUENCIES VARIABLES=lrmean /FORMAT=NOTABLE /STATISTICS=STDDEV SEMEAN MEAN SKEWNESS SESKEW KURTOSIS SEKURT /HISTOGRAM NORMAL /ORDER=ANALYSIS.