* Locus of control scale construction based on 11 item factor structure scale = high score indicates external locus of control

COMPUTE loc3r = 8 - loc3 .
VARIABLE LABELS loc3r '(8-loc3)' .
EXECUTE .

COMPUTE loc27r = 8 - loc27 .
VARIABLE LABELS loc27r '(8-loc27)' .
EXECUTE .

RELIABILITY
  /VARIABLES=loc3r loc27r loc13 loc14 loc17 loc18 loc22 loc23 loc24 loc25
  loc33
  /FORMAT=NOLABELS
  /SCALE(ALPHA)=ALL/MODEL=ALPHA
  /STATISTICS=DESCRIPTIVE SCALE CORR
  /SUMMARY=TOTAL .

* Eye balled scale - high score indicates internal locus of control

COMPUTE loc2r = 8 - loc2 .
VARIABLE LABELS loc2r '(8-loc2)' .
EXECUTE .

COMPUTE loc13r = 8 - loc13 .
VARIABLE LABELS loc13r '(8-loc13)' .
EXECUTE .

COMPUTE loc14r = 8 - loc14 .
VARIABLE LABELS loc14r '(8-loc14)' .
EXECUTE .

COMPUTE loc15r = 8 - loc15 .
VARIABLE LABELS loc15r '(8-loc15)' .
EXECUTE .

COMPUTE loc17r = 8 - loc17 .
VARIABLE LABELS loc17r '(8-loc17)' .
EXECUTE .

COMPUTE loc18r = 8 - loc18 .
VARIABLE LABELS loc18r '(8-loc18)' .
EXECUTE .

COMPUTE loc19r = 8 - loc19 .
VARIABLE LABELS loc19r '(8-loc19)' .
EXECUTE .

COMPUTE loc22r = 8 - loc22 .
VARIABLE LABELS loc22r '(8-loc22)' .
EXECUTE .

COMPUTE loc23r = 8 - loc23 .
VARIABLE LABELS loc23r '(8-loc23)' .
EXECUTE .

COMPUTE loc24r = 8 - loc24 .
VARIABLE LABELS loc24r '(8-loc24)' .
EXECUTE .

COMPUTE loc25r = 8 - loc25 .
VARIABLE LABELS loc25r '(8-loc25)' .
EXECUTE .

COMPUTE loc32r = 8 - loc32 .
VARIABLE LABELS loc32r '(8-loc32)' .
EXECUTE .

COMPUTE loc33r = 8 - loc33 .
VARIABLE LABELS loc33r '(8-loc33)' .
EXECUTE .

COMPUTE loc34r = 8 - loc34 .
VARIABLE LABELS loc34r '(8-loc34)' .
EXECUTE .

RELIABILITY
  /VARIABLES=loc2r loc13r loc14r loc15r loc17r loc18r loc19r loc22r loc23r
  loc24r loc25r loc32r loc33r loc34r loc3 loc9 loc10 loc11 loc20 loc21 loc26
  loc27 loc28
  /FORMAT=NOLABELS
  /SCALE(ALPHA)=ALL/MODEL=ALPHA
  /STATISTICS=DESCRIPTIVE SCALE CORR
  /SUMMARY=TOTAL .

*Drop items 11, 20, and 28,

RELIABILITY
  /VARIABLES=loc2r loc13r loc14r loc15r loc17r loc18r loc19r loc22r loc23r
  loc24r loc25r loc32r loc33r loc34r loc3 loc9 loc10 loc21 loc26
  loc27
  /FORMAT=NOLABELS
  /SCALE(ALPHA)=ALL/MODEL=ALPHA
  /STATISTICS=DESCRIPTIVE SCALE CORR
  /SUMMARY=TOTAL .

COMPUTE locus = MEAN(loc2r, loc13r, loc14r, loc15r, loc17r, loc18r, loc19r, loc22r, loc23r,
  loc24r, loc25r, loc32r, loc33r, loc34r, loc3, loc9, loc10, loc21, loc26,
  loc27) .
VARIABLE LABELS locus ' Internal Locus of Control Scale ' .
EXECUTE .


* Self Monitoring

COMPUTE sm1r = 8 - sm1 .
VARIABLE LABELS sm1r '(8-sm1)' .
EXECUTE .

COMPUTE sm2r = 8 - sm2 .
VARIABLE LABELS sm2r '(8-sm2)' .
EXECUTE .

COMPUTE sm3r = 8 - sm3 .
VARIABLE LABELS sm3r '(8-sm3)' .
EXECUTE .

COMPUTE sm4r = 8 - sm4 .
VARIABLE LABELS sm4r '(8-sm4)' .
EXECUTE .

COMPUTE sm9r = 8 - sm9 .
VARIABLE LABELS sm9r '(8-sm9)' .
EXECUTE .

COMPUTE sm12r = 8 - sm12 .
VARIABLE LABELS sm12r '(8-sm12)' .
EXECUTE .

COMPUTE sm14r = 8 - sm14 .
VARIABLE LABELS sm14r '(8-sm14)' .
EXECUTE .

COMPUTE sm17r = 8 - sm17 .
VARIABLE LABELS sm17r '(8-sm17)' .
EXECUTE .

COMPUTE sm20r = 8 - sm20 .
VARIABLE LABELS sm20r '(8-sm20)' .
EXECUTE .

COMPUTE sm21r = 8 - sm21 .
VARIABLE LABELS sm21r '(8-sm21)' .
EXECUTE .

COMPUTE sm22r = 8 - sm22 .
VARIABLE LABELS sm22r '(8-sm22)' .
EXECUTE .

COMPUTE sm23r = 8 - sm23 .
VARIABLE LABELS sm23r '(8-sm23)' .
EXECUTE .

RELIABILITY
  /VARIABLES=sm1r sm2r sm3r sm4r sm9r sm12r sm14r sm17r sm20r sm21r sm22r
  sm23r sm5 sm6 sm7 sm8 sm10 sm11 sm13 sm15 sm16 sm18 sm19 sm24 sm25
  /FORMAT=NOLABELS
  /SCALE(ALPHA)=ALL/MODEL=ALPHA
  /STATISTICS=DESCRIPTIVE SCALE CORR
  /SUMMARY=TOTAL .

COMPUTE Selfmon = MEAN(sm1r, sm2r, sm3r, sm4r, sm9r, sm12r, sm14r, sm17r, sm20r, sm21r, sm22r,
  sm23r, sm5, sm6, sm7, sm8, sm10, sm11, sm13, sm15, sm16, sm18, sm19, sm24, sm25) .
VARIABLE LABELS Selfmon 'Self Monitoring Scale' .
EXECUTE .


* Disgust Sensitivity Scale

COMPUTE ds1r = 8 - ds1 .
VARIABLE LABELS ds1r '(8-ds1)' .
EXECUTE .

COMPUTE ds6r = 8 - ds6 .
VARIABLE LABELS ds6r '(8-ds6)' .
EXECUTE .

COMPUTE ds18r = 8 - ds18 .
VARIABLE LABELS ds18r '(8-ds18)' .
EXECUTE .

RELIABILITY
  /VARIABLES=ds1r ds6r ds18r ds2 ds3 ds4 ds5 ds7 ds8 ds9 ds10 ds11 ds12 ds13
  ds14 ds15 ds16 ds17 ds19 ds20 ds21 ds22 ds23 ds24 ds25 ds26 ds27 ds28 ds29
  ds30 ds31 ds32
  /FORMAT=NOLABELS
  /SCALE(ALPHA)=ALL/MODEL=ALPHA
  /STATISTICS=DESCRIPTIVE SCALE CORR
  /SUMMARY=TOTAL .

COMPUTE Disgust = MEAN(ds1r, ds6r, ds18r, ds2, ds3, ds4, ds5, ds7, ds8, ds9, ds10, ds11, ds12, ds13,
  ds14, ds15, ds16, ds17, ds19, ds20, ds21, ds22, ds23, ds24, ds25, ds26, ds27, ds28, ds29,
  ds30, ds31, ds32) .
VARIABLE LABELS Disgust ' Disgust Sensitivity Score' .
EXECUTE .