***** Decision-making Lab Syntax *****.
***** June 21 2007 *****.

** FIRST be sure your data file is open in SPSS.
** THEN Run all the syntax below.


*** THIS PART OF THE SYNTAX RECODES THE VARIABLES INTO USEFUL VARIABLES.

STRING HLchoice (A8) .
DO IF (abettype = 'H' AND bbettype = 'L') .
RECODE
  choiceselectedtrial
  ('a'='H')  ('b'='L')  INTO  HLchoice .
END IF .
EXECUTE .

DO IF (abettype = 'L' AND bbettype = 'H') .
RECODE
  choiceselectedtrial
  ('a'='L')  ('b'='H')  INTO  HLchoice .
END IF .
EXECUTE .

STRING HXchoice (A8) .
DO IF (abettype = 'H' AND bbettype = 'X') .
RECODE
  choiceselectedtrial
  ('a'='H')  ('b'='X')  INTO  HXchoice .
END IF .
EXECUTE .

DO IF (abettype = 'X' AND bbettype = 'H') .
RECODE
  choiceselectedtrial
  ('a'='X')  ('b'='H')  INTO  HXchoice .
END IF .
EXECUTE .

STRING LXchoice (A8) .
DO IF (abettype = 'L' AND bbettype = 'X') .
RECODE
  choiceselectedtrial
  ('a'='L')  ('b'='X')  INTO  LXchoice .
END IF .
EXECUTE .

DO IF (abettype = 'X' AND bbettype = 'L') .
RECODE
  choiceselectedtrial
  ('a'='X')  ('b'='L')  INTO  LXchoice .
END IF .
EXECUTE .

DO IF (abettype = 'X') .
RECODE
  atopamount
  (ELSE=Copy)  INTO  Xamount .
END IF .
EXECUTE .

DO IF (bbettype = 'X') .
RECODE
  btopamount
  (ELSE=Copy)  INTO  Xamount .
END IF .
EXECUTE .

DO IF (abettype = 'H' AND sellingprice > 0) .
RECODE
  sellingprice
  (ELSE=Copy)  INTO  Hprice .
END IF .
EXECUTE .

DO IF (abettype = 'L' AND sellingprice > 0) .
RECODE
  sellingprice
  (ELSE=Copy)  INTO  Lprice .
END IF .
EXECUTE .

RECODE
  abettype  (ELSE='0')  .
RECODE
  bbettype  (ELSE='0')  .
RECODE
  choiceselectedtrial  (ELSE='0')  .
RECODE
  sellingprice  (ELSE=0)  .
RECODE
  atopamount  (ELSE=0)  .
RECODE
  btopamount  (ELSE=0)  .
EXECUTE .

SORT CASES BY tripletnumber .
CASESTOVARS
 /ID = tripletnumber
 /GROUPBY = VARIABLE .

STRING hlprice (A8) .
DO IF (hprice > lprice) .
RECODE
  hprice
  (ELSE='H')  INTO  hlprice .
END IF .
DO IF (hprice < lprice) .
RECODE
  hprice
  (ELSE='L')  INTO  hlprice .
END IF .
DO IF (hprice = lprice) .
RECODE
  hprice
  (ELSE='.')  INTO  hlprice .
END IF .
EXECUTE .

STRING pattern (A8) .
DO IF (hlprice = 'L' AND HLchoice = 'H' AND
lprice > Xamount AND Xamount > hprice AND
hxchoice = 'X' AND lxchoice = 'L') .
RECODE
  pattern  (ELSE='intrans')  .
END IF .
DO IF (hlprice = 'L' AND hlchoice = 'H' AND
lprice > Xamount AND Xamount > hprice AND
hxchoice = 'X' AND lxchoice = 'X') .
RECODE
  pattern  (ELSE='overL')  .
END IF .
DO IF (hlprice = 'L' AND hlchoice = 'H' AND
lprice > Xamount AND Xamount > hprice AND
hxchoice = 'H' AND lxchoice = 'L') .
RECODE
  pattern  (ELSE='underH')  .
END IF .
DO IF (hlprice = 'L' AND hlchoice = 'H' AND
lprice > Xamount AND Xamount > hprice AND
hxchoice = 'H' AND lxchoice = 'X') .
RECODE
  pattern  (ELSE='both')  .
END IF .
EXECUTE .


variable labels
hlchoice	'bet chosen '
hlprice	'bet with higher price'.



*** HERE WE FINALLY GET TO THE ANALYSES.

** CROSSTAB of choice and pricing.

TITLE 'Preference Reversal Table'.
CROSSTABS
  /TABLES=hlchoice  BY hlprice
  /FORMAT= AVALUE TABLES
  /STATISTIC=CHISQ
 /CELLS= COUNT ROW COLUMN TOTAL .


** SELECT ONLY CASES WHERE A PATTERN APPEARED, AND SHOW FREQS.

USE ALL.
COMPUTE filter_$=(pattern ~= '').
VARIABLE LABEL filter_$ "pattern ~= '' (FILTER)".
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

TITLE 'X-choice pattern for only those triplets that showed PR where the X amount was between the L price and the H price'.
FREQUENCIES
  VARIABLES=pattern
  /ORDER=  ANALYSIS .

FILTER OFF.
USE ALL.
EXECUTE .