## variables for Exp. 1

## order of items in each group of 4: 1=norm act cons omit; 2=norm omit cons act; 3=both omit; 4=both act
Item # order in which item was presented
## 5th item has incorrect question, favors act, hence Cons
Act # Response: 1 favors act, -1 omit: should be 00-+ in each group of 4 (0 = conflict)
Cons # act better consequence, should be -+-+ in each group
Norm # norm favors act, should be +--+ 
Omit # should be ++++ (omission is always choice B)
RT # time for each item in 10ths of secs

## useful R definitions:

Incong <- c(1,2,5,6,9,10,13,14,17,18)
Cong <- c(3,4,7,8,11,12,15,16,19,20)

## The following apply to matrices with 100 rows (subjects) and 20 columns (items).
## For example, Cons must be extracted from the larger matrix in exp1.csv.

## Agree measures agreement with own choice
Agree <- (((sign(Cons)+sign(Norm))*Act)>0)+0
Disagree <- (((sign(Cons)+sign(Norm))*Act)<0)+0 
DisCong <- (((sign(Cons[,Cong])+sign(Norm[,Cong]))*Act[,Cong])<0)+0 # COMPARE w PERV
Perv <- (t(t(Act)*rep(c(0,0,1,-1),5))>0)+0 # perverse responses according to us in incongruent cases
PervAgree <- (Perv & Agree>0)+0 # Perv consistent with agreement
ConsOK <- t(t(sign(Cons))*rep(c(-1,1,-1,1),5)) # consequence agrees with design
NormOK <- t(t(sign(Norm))*rep(c(1,-1,-1,1),5)) # norm agrees with design

## varables for Exp. 2

## order of items in each group of two: 1=incongruent, 2=congruent
Item # order in which item was presented
Act # Response: 1 favors act, -1 omit: should be 0+0+0-0- 0+0-0+0- (0 = conflict)
Cons # act better consequence, should be -+-+ +-+- -++- -++-
Norm # norm favors act, should be ++++ ---- ++-- ++-- [no 3d option]
Omit # should be + (omission is always choice B)
RT # time for each item in 10ths of secs

## useful R definitions

Incong <- c(1,3,5,7,9,11,13,15)
Cong <- Incong+1

## The following apply to matrices with 100 rows (subjects) and 16 columns (items).
## For example, Cons must be extracted from the larger matrix in exp1.csv.

## Agree measures agreement with own choice
Agree <- (((Cons+Norm)*Act)>0)+0
Disagree <- (((Cons+Norm)*Act)<0)+0 
DisCong <- (((Cons[,Cong]+Norm[,Cong])*Act[,Cong])<0)+0 # COMPARE w PERV
Perv <- t(t(Act[,Cong])*c(1,1,-1,-1, 1,-1,1,-1)<0)+0 # perv resps according to us in cong cases
PervAgree <- (Perv & !Agree[,Cong]>0)+0 # Perv consistent with agreement
ConsOK <- t(t(sign(Cons))*c(-1,1,-1,1, 1,-1,1,-1, -1,1,1,-1, -1,1,1,-1)) # cons agrees with design
NormOK <- t(t(sign(Norm))*c(1,1,1,1, -1,-1,-1,-1, 1,1,-1,-1, 1,1,-1,-1)) # norm agrees with design