ds_r.sps
syntax file to calculate scores for the DS-R (Disgust Scale-Revised).
Written by Jon Haidt, March 13, 2007

Select and run the appropriate blocks of code below in SPSS, or modify them for your stats program.
Scores here are computed as averages (from 0-4) rather than as sums, to allow subscale scores to be compared
despite differing numbers of items, and also to accommodate missing items (which harm a total much more 
than an average).  All scores therefore range from 0 (lowest possible disgust sensitivity) to 4.0 
(highest possible rating given on all questions). 
Variable names are those used in the template spss file.


* Note: items 1, 6, and 10 must get reversed; run the code below ONLY ONCE.

compute monkey01 = 4 - monkey01.
compute roach06 = 4 - roach06.
compute eye10 = 4 - eye10.
execute.



*compute the three subscale means (for core disgust, animal-reminder disgust, and contamination-disgust), and
the whole scale score (mean).

compute core_av = mean (monkey01, throat03, roach06, vomit08, rat11, soup13, maggots15, urine17, icecrm20, underw22, milk25, worm27).
compute anrem_av = mean (hand02, grave05,  body07, eye10, hotel14, cat19, intest21, ashes24).
compute contam_av = mean (toilet04, cook09, soda18, chocl23, condom26).

compute dsr_av = mean (monkey01, hand02, throat03, toilet04, grave05, roach06, body07, vomit08, cook09, eye10, rat11,
soup13, hotel14, maggots15, urine17, soda18, cat19, icecrm20, intest21, underw22, chocl23, ashes24, milk25,
condom26, worm27).


execute.