*First Time Analysis


*******************************************************************************************Test 1-3*********************************************************************
*********************Behavior************************************
*Diligent

RECODE 
  b3 b8 b23 b31 b37
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdelig1 rbdelig2 rbdelig3 rbdelig4 rbdelig5 .
EXECUTE.

*Economy

RECODE 
 b6	b9	b15	b20	b25
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbecon1	rbecon2	rbecon3	rbecon4	rbecon5 .
EXECUTE.

RECODE 
  rbecon1	rbecon2
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Honesty

RECODE 
  b14	b35	b38	b40	b42
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbhones1	rbhones2	rbhones3	rbhones4	rbhones5 .
EXECUTE.

RECODE 
  rbhones1	rbhones2	rbhones3	rbhones4	rbhones5
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Discipline

RECODE 
  b11	b19	b26	b28	b30
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdisci1	rbdisci2	rbdisci3	rbdisci4	rbdisci5 .
EXECUTE.

*Polite

RECODE 
  b2	b21	b27	b39	b41
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpolit1	rbpolit2	rbpolit3	rbpolit4	rbpolit5 .
EXECUTE.

*Physical Cleanness

RECODE 
  b4	b7	b13	b17	b45
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpcle1	rbpcle2	rbpcle3	rbpcle4	rbpcle5 .
EXECUTE.

RECODE 
  rbpcle4	rbpcle5
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Mental Cleanness

RECODE 
  b1	b5	b16	b18	b29
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbmcle1	rbmcle2	rbmcle3	rbmcle4	rbmcle5 .
EXECUTE.

RECODE 
  rbmcle1	rbmcle2	rbmcle3
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Cooperative

RECODE 
  b10	b12	b24	b33	b34
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbcoop1	rbcoop2	rbcoop3	rbcoop4	rbcoop5 .
EXECUTE.

*Prosocial Behavior

RECODE 
  b22	b32	b36	b43	b44
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbprosc1	rbprosc2	rbprosc3	rbprosc4	rbprosc5 .
EXECUTE.

*********************Marlowe Crowne Scale************************************

RECODE 
  s1 to s16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rmcsd1 to rmcsd16 .
EXECUTE.

RECODE 
  rmcsd1 rmcsd2 rmcsd3 rmcsd6 rmcsd9 rmcsd11 rmcsd13 rmcsd15
  (1=1) (2=0) (ELSE=Copy)  .
EXECUTE.

RECODE 
  rmcsd4 rmcsd5 rmcsd7 rmcsd8 rmcsd10 rmcsd12 rmcsd14 rmcsd16
  (1=0) (2=1) (ELSE=Copy)  .
EXECUTE.



*********************CSD Scale************************************

RECODE 
  s1 to s16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rcsd1 to rcsd16 .
EXECUTE.

RECODE 
  rcsd2 rcsd3 rcsd6 rcsd8 rcsd9 rcsd10 rcsd12 rcsd15
  (1=1) (2=0) (ELSE=Copy)  .
EXECUTE.

RECODE 
  rcsd1 rcsd4 rcsd5 rcsd7 rcsd11 rcsd13 rcsd14 rcsd16
  (1=0) (2=1) (ELSE=Copy)  .
EXECUTE.

**************************************************************

COMPUTE mcsd = sum.16(rmcsd1 to rmcsd16) .
EXECUTE .

COMPUTE csd = sum.16(rcsd1 to rcsd16) .
EXECUTE .

FACTOR
  /VARIABLES Income FamIncome ParentEd  /MISSING LISTWISE /ANALYSIS Income
  FamIncome ParentEd
  /PRINT INITIAL EXTRACTION
  /PLOT EIGEN
  /CRITERIA FACTORS(1) ITERATE(500)
  /EXTRACTION PC
  /ROTATION NOROTATE
  /SAVE AR(ALL)
  /METHOD=CORRELATION .


**************************************** Transform to Item Level **********************

VARSTOCASES  /MAKE trans1 FROM rbdelig1 rbdelig2 rbdelig3 rbdelig4 rbdelig5
  rbecon1 rbecon2 rbecon3 rbecon4 rbecon5 rbhones1 rbhones2 rbhones3 rbhones4
  rbhones5 rbdisci1 rbdisci2 rbdisci3 rbdisci4 rbdisci5 rbpolit1 rbpolit2
  rbpolit3 rbpolit4 rbpolit5 rbpcle1 rbpcle2 rbpcle3 rbpcle4 rbpcle5 rbmcle1
  rbmcle2 rbmcle3 rbmcle4 rbmcle5 rbcoop1 rbcoop2 rbcoop3 rbcoop4 rbcoop5
  rbprosc1 rbprosc2 rbprosc3 rbprosc4 rbprosc5
 /INDEX = Name(trans1)
 /KEEP =  SchStuID SchoolID
 /NULL = KEEP.



RECODE
  Name
  ('rbdelig1'=1)  ('rbdelig2'=1)  ('rbdelig3'=1)  ('rbdelig4'=1)
  ('rbdelig5'=1)  (ELSE=0)  INTO  bdelig .
EXECUTE .

RECODE
  Name
  ('rbecon1'=1)  ('rbecon2'=1)  ('rbecon3'=1)  ('rbecon4'=1)
  ('rbecon5'=1)  (ELSE=0)  INTO  becon .
EXECUTE .

RECODE
  Name
  ('rbhones1'=1)  ('rbhones2'=1)  ('rbhones3'=1)  ('rbhones4'=1)
  ('rbhones5'=1)  (ELSE=0)  INTO  bhones .
EXECUTE .

RECODE
  Name
  ('rbdisci1'=1)  ('rbdisci2'=1)  ('rbdisci3'=1)  ('rbdisci4'=1)
  ('rbdisci5'=1)  (ELSE=0)  INTO  bdisci .
EXECUTE .

RECODE
  Name
  ('rbpolit1'=1)  ('rbpolit2'=1)  ('rbpolit3'=1)  ('rbpolit4'=1)
  ('rbpolit5'=1)  (ELSE=0)  INTO  bpolit .
EXECUTE .

RECODE
  Name
  ('rbpcle1'=1)  ('rbpcle2'=1)  ('rbpcle3'=1)  ('rbpcle4'=1)
  ('rbpcle5'=1)  (ELSE=0)  INTO  bpcle .
EXECUTE .

RECODE
  Name
  ('rbmcle1'=1)  ('rbmcle2'=1)  ('rbmcle3'=1)  ('rbmcle4'=1)
  ('rbmcle5'=1)  (ELSE=0)  INTO  bmcle .
EXECUTE .

RECODE
  Name
  ('rbcoop1'=1)  ('rbcoop2'=1)  ('rbcoop3'=1)  ('rbcoop4'=1)
  ('rbcoop5'=1)  (ELSE=0)  INTO  bcoop .
EXECUTE .

RECODE
  Name
  ('rbprosc1'=1)  ('rbprosc2'=1)  ('rbprosc3'=1)  ('rbprosc4'=1)
  ('rbprosc5'=1)  (ELSE=0)  INTO  bprosc .
EXECUTE .

RECODE
  Name
  (ELSE=1) INTO ball .
EXECUTE .

DESCRIPTIVES
  VARIABLES=trans1
  /STATISTICS=MEAN STDDEV MIN MAX .



AGGREGATE
  /OUTFILE='C:\Users\fujitsu\Desktop\Moral Evaluation\Second Time'+
 ' Analysis\Form 3 Pratom School Second Individual Level.sav'
  /BREAK=SchStuID
  /SchoolID_mean = MEAN(SchoolID) /trans1_mean = MEAN(trans1).

SORT CASES BY
  SchoolID_mean (A) SchStuID (A) .

SORT CASES BY
  SchoolID (A) SchStuID (A) .



AGGREGATE
  /OUTFILE='C:\Users\fujitsu\Desktop\Moral Evaluation\Second Time'+
 ' Analysis\Form 3 Pratom School Second School Level.sav'
  /BREAK=SchoolID_mean
  /trans1_mean_mean = MEAN(trans1_mean) /Grade_mean = MEAN(Grade)
 /sdmean_mean = MEAN(sdmean) /SES_mean = MEAN(SES) /dsex_mean = MEAN(dsex)
  /N_BREAK=N.

MVA
  Grade sdmean SES dsex rbdelig1 rbdelig2 rbdelig3 rbdelig4 rbdelig5 rbecon1
  rbecon2 rbecon3 rbecon4 rbecon5 rbhones1 rbhones2 rbhones3 rbhones4 rbhones5
  rbdisci1 rbdisci2 rbdisci3 rbdisci4 rbdisci5 rbpolit1 rbpolit2 rbpolit3
  rbpolit4 rbpolit5 rbpcle1 rbpcle2 rbpcle3 rbpcle4 rbpcle5 rbmcle1 rbmcle2
  rbmcle3 rbmcle4 rbmcle5 rbcoop1 rbcoop2 rbcoop3 rbcoop4 rbcoop5 rbprosc1
  rbprosc2 rbprosc3 rbprosc4 rbprosc5 rmcsd1 rmcsd2 rmcsd3 rmcsd4 rmcsd5
  rmcsd6 rmcsd7 rmcsd8 rmcsd9 rmcsd10 rmcsd11 rmcsd12 rmcsd13 rmcsd14 rmcsd15
  rmcsd16  Age Educ
  /MAXCAT = 25
  /ID = SchStuID
  /CATEGORICAL = Age Educ
  /TTEST PROB PERCENT=5
  /CROSSTAB PERCENT=5
  /MISMATCH PERCENT=5
  /EM ( TOLERANCE=0.001 CONVERGENCE=0.0001 ITERATIONS=500
  OUTFILE='C:\Users\fujitsu\Desktop\Moral Evaluation\Second Time Analysis\Form'+
 ' 1 All Second EM.sav' ) .

MVA
  Grade sdmean SES dsex rbdelig1 rbdelig2 rbdelig3 rbdelig4 rbdelig5 rbecon1
  rbecon2 rbecon3 rbecon4 rbecon5 rbhones1 rbhones2 rbhones3 rbhones4 rbhones5
  rbdisci1 rbdisci2 rbdisci3 rbdisci4 rbdisci5 rbpolit1 rbpolit2 rbpolit3
  rbpolit4 rbpolit5 rbpcle1 rbpcle2 rbpcle3 rbpcle4 rbpcle5 rbmcle1 rbmcle2
  rbmcle3 rbmcle4 rbmcle5 rbcoop1 rbcoop2 rbcoop3 rbcoop4 rbcoop5 rbprosc1
  rbprosc2 rbprosc3 rbprosc4 rbprosc5 rcsd1 rcsd2 rcsd3 rcsd4 rcsd5 rcsd6
  rcsd7 rcsd8 rcsd9 rcsd10 rcsd11 rcsd12 rcsd13 rcsd14 rcsd15 rcsd16  Age
  /MAXCAT = 25
  /ID = SchStuID
  /CATEGORICAL = Age
  /TTEST PROB PERCENT=5
  /CROSSTAB PERCENT=5
  /MISMATCH PERCENT=5
  /EM ( TOLERANCE=0.001 CONVERGENCE=0.0001 ITERATIONS=25
  OUTFILE='C:\Users\fujitsu\Desktop\Moral Evaluation\Second Time Analysis\Form'+
 ' 2 All Second EM.sav' ) .

MVA
  Grade sdmean dsex Income FamIncome ParentEd rbdelig1 rbdelig2 rbdelig3
  rbdelig4 rbdelig5 rbecon1 rbecon2 rbecon3 rbecon4 rbecon5 rbhones1 rbhones2
  rbhones3 rbhones4 rbhones5 rbdisci1 rbdisci2 rbdisci3 rbdisci4 rbdisci5
  rbpolit1 rbpolit2 rbpolit3 rbpolit4 rbpolit5 rbpcle1 rbpcle2 rbpcle3 rbpcle4
  rbpcle5 rbmcle1 rbmcle2 rbmcle3 rbmcle4 rbmcle5 rbcoop1 rbcoop2 rbcoop3
  rbcoop4 rbcoop5 rbprosc1 rbprosc2 rbprosc3 rbprosc4 rbprosc5 rcsd1 rcsd2
  rcsd3 rcsd4 rcsd5 rcsd6 rcsd7 rcsd8 rcsd9 rcsd10 rcsd11 rcsd12 rcsd13 rcsd14
  rcsd15 rcsd16  Age Educ
  /MAXCAT = 25
  /ID = SchStuID
  /CATEGORICAL = Age Educ
  /TTEST PROB PERCENT=5
  /CROSSTAB PERCENT=5
  /MISMATCH PERCENT=5
  /EM ( TOLERANCE=0.001 CONVERGENCE=0.0001 ITERATIONS=500
  OUTFILE='C:\Users\fujitsu\Desktop\Moral Evaluation\Second Time Analysis\Form'+
 ' 345 All Second EM.sav' ) .