data SelfMemConsol;
  
infile '\\Client\C:\Guilty by Association Experiment 2 data.txt'
      missover; 
      options linesize=68;
 
*total RTs = 51; 
array resp{51} resp1-resp51;
array rt{51} rt1-rt51;

input SUBJECT 1-3 GROUP $4 CB 5-6 SEX $7 SLEEP $8 AGE 9-10 ETHNIC $11-12 
LANGUAGECATEGORY $13  KNOW $14 
SLEEPQ1 15-16 SLEEPQ2 17-19 SLEEPQ3 20-21 SLEEPQ4 22-24    
CHECKUP1 $25 CHECKUP2 $26 CHECKUP3 $27 CHECKUP4 $28; 

if age = 0 then age = '.';
if ethnic = '00' then ethnic = '.';
if LANGUAGECATEGORY = '0' then LANGUAGECATEGORY = '.';

*CB --> 1 (stim set) 1 (Ingroup First) or 2 (Outgroup First);

do i = 1 to 51 by 1; input resp {i} 1 rt {i};
if rt{i} = 0 then rt{i} ='.';
*if rt{i} ='.' then resp{i} = '.';
*if rt{i} <200 then rt{i} ='.';
if resp{i} > 8 then resp{i} = 7;
if resp{i} < 1 then resp{i} = '.';
end;

IF KNOW = 'Y' then delete; *none;
if CHECKUP1 = 'Y' then delete;
if CHECKUP4 = 'Y' then delete;
*CHECKUP1 = fell asleep in no sleep condition
*CHECKUP4 = napped in no sleep condition;

***Demographics***;

	*Ethnicity: HISPANIC/LATINO (HL) MEXICAN (MX) CAUCASIAN/WHITE (CW) AFRICAN-AMERICAN (AA) 
	NATIVE AMERICAN (NA) ASIAN (AS) SOUTH EAST ASIAN (SA) ARABIC (AR) AFRICAN (AF) OTHER (OT);

do; 
***Group ID items;
GroupMem = mean(resp44);
GroupID = mean(resp45);
PhysSim = mean(resp10);
PersSim = mean(resp11); 
Entitativity = mean(PhysSim,PersSim);
end;

***Self ID Items;
*posantg1 is the antonym of competent, so it is disorganized; 
do;
PosAntG1 = mean(resp2);
PCompetent = mean(resp3);
NArrogant = mean(resp5);
NegAntG1 = mean(resp4);
PWarm = mean(resp7);
NAnxious = mean(resp9);
PosAntF1 = mean(resp6);
NegAntF1 = mean(resp8); 
end; 

***Self ID Items by GROUP;

If Group = 'G' then do;
IGPosAntG = mean(resp2);
IGPositiveG = mean(resp3);
IGNegativeG = mean(resp5);
IGNegAntG = mean(resp4);
OGPositiveG = mean(resp7);
OGNegativeG = mean(resp9);
OGPosAntG = mean(resp6);
OGNegAntG = mean(resp8); **;
end; 

If Group = 'F' then do;
OGPosAntF = mean(resp2);
OGPositiveF = mean(resp3);
OGNegativeF = mean(resp5);
OGNegAntF = mean(resp4);
IGPositiveF = mean(resp7);
IGNegativeF = mean(resp9);
IGPosAntF = mean(resp6);
IGNegAntF = mean(resp8); **;
end; 

***Self ID ACROSS Group;

do;
OGPosAnt = mean(OGPosAntF,OGPosAntG);
OGPositive = mean(OGPositiveF,OGPositiveG);
OGNegative = mean(OGNegativeG,OGNegativeF);
OGNegAnt = mean(OGNegAntF,OGNegAntG);
IGPosAnt = mean(IGPosAntF,IGPosAntG);
IGPositive = mean(IGPositiveF,IGPositiveG);
IGNegative = mean(IGNegativeF,IGNegativeG);
IGNegAnt = mean(IGNegAntF,IGNegAntG);
PositiveO = mean(IGPositive,OGPositive);
NegativeO = mean(IGNegative,OGNegative);
end;

***Collapsed across Sleep;
If Sleep = 'S' then do;

PositiveOS = mean(IGPositive,OGPositive);
NegativeOS = mean(IGNegative,OGNegative);
OGOverallS = mean(OGPositive,OGNegative);
IGOverallS = mean(IGPositive,IGNegative);
OGNegativeS = mean(OGNegativeG,OGNegativeF);
OGPositiveS = mean(OGPositiveF,OGPositiveG);
IGNegativeS = mean(IGNegativeF,IGNegativeG);
IGPositiveS = mean(IGPositiveF,IGPositiveG);
end;

If Sleep = 'N' then do;

PositiveON = mean(IGPositive,OGPositive);
NegativeON = mean(IGNegative,OGNegative);
OGOverallN = mean(OGPositive,OGNegative);
IGOverallN = mean(IGPositive,IGNegative);
OGNegativeN = mean(OGNegativeG,OGNegativeF);
OGPositiveN = mean(OGPositiveF,OGPositiveG);
IGNegativeN = mean(IGNegativeF,IGNegativeG);
IGPositiveN = mean(IGPositiveF,IGPositiveG);
end;

***Collapsed across Group and Sleep;

do;
PositiveSelfO = mean(PositiveOS,PositiveON);
NegativeSelfO = mean(NegativeOS,NegativeON);
OGOverall = mean(OGOverallN,OGOverallS);
IGOverall = mean(IGOverallS,IGOverallN);
OGPositiveO = mean(OGPositiveN,OGPositiveS);
OGNegativeO = mean(OGNegativeN,OGNegativeS);
IGPositiveO = mean(IGPositiveS,IGPositiveN);
IGNegativeO = mean(IGNegativeS,IGNegativeN);

end;
***Group Trait Ratings;
If Group = 'G' then do;

***The next four reflect in-group trait ratings for the ingroup, here, group g;

grpIGPosAntG = mean(resp34);
grpIGPositiveG = mean(resp35);
grpIGNegAntG = mean(resp36);
grpIGNegativeG = mean(resp37);

***The next four reflect out-group trait ratings for the ingroup, here, group g;

grpOGPosAntG = mean(resp18);
grpOGPositiveG = mean(resp19);
grpOGNegAntG = mean(resp20);
grpOGNegativeG = mean(resp21);

end; 

If Group = 'F' then do;

***The next four reflect in-group trait ratings for the ingroup, here, group f;

grpIGPosAntF = mean(resp38);
grpIGPositiveF = mean(resp39);
grpIGNegAntF = mean(resp40);
grpIGNegativeF = mean(resp41);

***The next four reflect out-group trait ratings for the ingroup, here, group f;

grpOGPosAntF = mean(resp22);
grpOGPositiveF = mean(resp23);
grpOGNegAntF = mean(resp24);
grpOGNegativeF = mean(resp25);

end;

do;

IGPosAntGrp = mean(grpIGPosAntG ,grpIGPosAntF);
IGPosGrp = mean(grpIGPositiveG,grpIGPositiveF);
IGNegAntGrp = mean(grpIGNegAntG,grpIGNegAntF);
IGNegGrp = mean(grpIGNegativeG,grpIGNegativeF);
OGPosAntGrp = mean(grpOGPosAntG,grpOGPosAntF);
OGPosGrp = mean(grpOGPositiveG,grpOGPositiveF);
OGNegAntGrp = mean(grpOGNegAntG,grpOGNegAntF);
OGNegGrp = mean(grpOGNegativeG,grpOGNegativeF);
end;

do;

***RememberKnow;

OGRKD = mean(resp12);
OGRKRConf = mean(resp13);
OGRKRemC = mean(resp14);
OGRKKConf = mean(resp15);
OGRKKnoC = mean(resp16);
OGGuess = mean(resp17);
IGRKD = mean(resp28);
IGRKRConf = mean(resp29);
IGRKRemC = mean(resp30);
IGRKRKConf = mean(resp31);
IGRKKnoC = mean(resp32);
IGGuess = mean(resp33); 

***Competition Items;

WarmEval = mean(resp1);
CompetentEval = mean(resp47); 
ArrogantEval = mean(resp50);
AnxiousEval = mean(resp51);
OGEval = mean(resp26);
IGEval = mean(resp42);
OGComp = mean(resp27);
IGComp = mean(resp43);
Hostile = mean(resp46);
Cheat = mean(resp48); 
Competitive = mean(resp49);
Prejudice = mean(Hostile,Cheat);
end;

***Competition items by group;

If Group = 'G' then do;
OGPosEvalG = mean(WarmEval);
OGNegEvalG = mean(AnxiousEval);
IGPosEvalG = mean(CompetentEval);
IGNegEvalG = mean(ArrogantEval);
end;

If Group = 'F' then do;
IGPosEvalF = mean(WarmEval);
IGNegEvalF = mean(AnxiousEval);
OGPosEvalF = mean(CompetentEval);
OGNegEvalF = mean(ArrogantEval);
end;

do;
IGPosEval = mean(IGPosEvalF,IGPosEvalG);
IGNegEval = mean(IGNegEvalG,IGNegEvalF);
OGPosEval = mean(OGPosEvalG,OGPosEvalF);
OGNegEval = mean(OGNegEvalG,OGNegEvalF);
NegEval = mean(OGNegEvalG,OGNegEvalF,IGNegEvalG,IGNegEvalF);
PosEval = mean(IGPosEvalF,IGPosEvalG,OGPosEvalG,OGPosEvalF);
end;

cards;

***Self Ratings;
proc glm; class sleep;
	model IGPositive OGPositive
		  IGNegative OGNegative = sleep ; 
	repeated group 2, valence 2; means sleep; run;

proc glm; class sleep;  
	model PositiveO NegativeO = sleep ; 
	repeated valence 2 ; means sleep; run;

proc glm; class sleep;
	model IGNegative OGNegative = sleep ; 
	repeated group 2; means sleep; run;

proc glm; class sleep CB sex;
	model IGNegative  = sleep| CB / effectsize; 
	lsmeans sleep|CB /pdiff; means sleep|CB; run;

proc glm; class sleep;
	model IGPositive OGPositive = sleep; 
	repeated group 2; means sleep; run;

proc glm; class Sleep; *NS;
	model   OGNegAnt IGNegAnt = sleep; 
			repeated Group 2; means sleep; run;

***Remember/Know;
proc sort; by sleep; run;
proc freq data = SelfMemConsol; tables OGRKD IGRKD; by sleep; run;

proc logisitc; class sleep; 
	model OGRKD = Sleep;
	run;
	
proc logisitc; class sleep; 
	model IGRKD = Sleep;
	run;

proc glm; class sleep;
model OGRKRemC IGRKRemC 
	  OGRKKnoC  IGRKKnoC  = sleep; 
	repeated RemKno 2, Group 2; means sleep; run;

***Group ID and Similarity Items;
proc glm; class sex Sleep;
	model PhysSim PersSim GroupID = Sleep;
	repeated EntType 3; means sleep; run;

***Group Trait Ratings;
proc glm; class Sleep;
	model   IGNegGrp OGNegGrp = sleep; 
	repeated Group 2; means sleep; run;

proc glm; class Sleep;
	model   IGPosGrp OGPosGrp = sleep; 
	repeated Group 2; means sleep; run;