*First Time Analysis


*******************************************************************************************Test 1*********************************************************************
*********************Behavior************************************
*Diligent

RECODE 
  b3 b8 b23 b31 b37
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdelig1a rbdelig2a rbdelig3a rbdelig4a rbdelig5a .
EXECUTE.

*Economy

RECODE 
 b6	b9	b15	b20	b25
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbecon1a	rbecon2a	rbecon3a	rbecon4a	rbecon5a .
EXECUTE.

RECODE 
  rbecon1a	rbecon2a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Honesty

RECODE 
  b14	b35	b38	b40	b42
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbhones1a	rbhones2a	rbhones3a	rbhones4a	rbhones5a .
EXECUTE.

RECODE 
  rbhones1a	rbhones2a	rbhones3a	rbhones4a	rbhones5a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Discipline

RECODE 
  b11	b19	b26	b28	b30
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdisci1a	rbdisci2a	rbdisci3a	rbdisci4a	rbdisci5a .
EXECUTE.

*Polite

RECODE 
  b2	b21	b27	b39	b41
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpolit1a	rbpolit2a	rbpolit3a	rbpolit4a	rbpolit5a .
EXECUTE.

*Physical Cleanness

RECODE 
  b4	b7	b13	b17	b45
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpcle1a	rbpcle2a	rbpcle3a	rbpcle4a	rbpcle5a .
EXECUTE.

RECODE 
  rbpcle4a	rbpcle5a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Mental Cleanness

RECODE 
  b1	b5	b16	b18	b29
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbmcle1a	rbmcle2a	rbmcle3a	rbmcle4a	rbmcle5a .
EXECUTE.

RECODE 
  rbmcle1a	rbmcle2a	rbmcle3a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Cooperative

RECODE 
  b10	b12	b24	b33	b34
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbcoop1a	rbcoop2a	rbcoop3a	rbcoop4a	rbcoop5a .
EXECUTE.

*Prosocial Behavior

RECODE 
  b22	b32	b36	b43	b44
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbprosc1a	rbprosc2a	rbprosc3a	rbprosc4a	rbprosc5a .
EXECUTE.

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

RECODE 
  s1 to s16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rmcsd1a rmcsd2a rmcsd3a rmcsd4a rmcsd5a rmcsd6a rmcsd7a rmcsd8a rmcsd9a rmcsd10a rmcsd11a rmcsd12a rmcsd13a rmcsd14a rmcsd15a rmcsd16a .
EXECUTE .

RECODE 
  rmcsd1a rmcsd2a rmcsd3a rmcsd6a rmcsd9a rmcsd11a rmcsd13a rmcsd15a
  (1=1) (2=0) (ELSE=Copy)  .
EXECUTE .

RECODE
  rmcsd4a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd5a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd7a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd8a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd10a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd12a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd14a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE
  rmcsd16a 
  (1 = 0) (2 = 1) (else = copy) .
Execute .

RECODE 
  s1 to s16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rmcsd1b rmcsd2b rmcsd3b rmcsd4b rmcsd5b rmcsd6b rmcsd7b rmcsd8b rmcsd9b rmcsd10b rmcsd11b rmcsd12b rmcsd13b rmcsd14b rmcsd15b rmcsd16b .
EXECUTE .

RECODE 
  rmcsd1b rmcsd2b rmcsd3b rmcsd6b rmcsd9b rmcsd11b rmcsd13b rmcsd15b
  (1=1) (2=0) (ELSE=Copy)  .
EXECUTE .

RECODE 
  rmcsd4b rmcsd5b rmcsd7b rmcsd8b rmcsd10b rmcsd12b rmcsd14b rmcsd16b
  (1=0) (2=1) (ELSE=Copy)  .
EXECUTE .

Delete variables b1 to b45 .
Execute .

Delete variables s1 to s16 .
Execute .

Delete variables a1 to a45 .
Execute .


*******************************************************************************************Test 2*********************************************************************
*********************Behavior************************************
*Diligent

RECODE 
  b3 b8 b23 b31 b37
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdelig1b rbdelig2b rbdelig3b rbdelig4b rbdelig5b .
EXECUTE.

*Economy

RECODE 
 b6	b9	b15	b20	b25
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbecon1b	rbecon2b	rbecon3b	rbecon4b	rbecon5b .
EXECUTE.

RECODE 
  rbecon1b	rbecon2b
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Honesty

RECODE 
  b14	b35	b38	b40	b42
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbhones1b	rbhones2b	rbhones3b	rbhones4b	rbhones5b .
EXECUTE.

RECODE 
  rbhones1b	rbhones2b	rbhones3b	rbhones4b	rbhones5b
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Discipline

RECODE 
  b11	b19	b26	b28	b30
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdisci1b	rbdisci2b	rbdisci3b	rbdisci4b	rbdisci5b .
EXECUTE.

*Polite

RECODE 
  b2	b21	b27	b39	b41
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpolit1b	rbpolit2b	rbpolit3b	rbpolit4b	rbpolit5b .
EXECUTE.

*Physical Cleanness

RECODE 
  b4	b7	b13	b17	b45
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpcle1b	rbpcle2b	rbpcle3b	rbpcle4b	rbpcle5b .
EXECUTE.

RECODE 
  rbpcle4b	rbpcle5b
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Mental Cleanness

RECODE 
  b1	b5	b16	b18	b29
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbmcle1b	rbmcle2b	rbmcle3b	rbmcle4b	rbmcle5b .
EXECUTE.

RECODE 
  rbmcle1b	rbmcle2b	rbmcle3b
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Cooperative

RECODE 
  b10	b12	b24	b33	b34
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbcoop1b	rbcoop2b	rbcoop3b	rbcoop4b	rbcoop5b .
EXECUTE.

*Prosocial Behavior

RECODE 
  b22	b32	b36	b43	b44
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbprosc1b	rbprosc2b	rbprosc3b	rbprosc4b	rbprosc5b .
EXECUTE.

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

RECODE 
  s1 to s16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rcsd1a  rcsd2a rcsd3a rcsd4a rcsd5a rcsd6a rcsd7a rcsd8a rcsd9a rcsd10a rcsd11a rcsd12a rcsd13a rcsd14a rcsd15a rcsd16a .
EXECUTE.

RECODE 
  rcsd2a rcsd3a rcsd6a rcsd8a rcsd9a rcsd10a rcsd12a rcsd15a
  (1=1) (2=0) (ELSE=Copy)  .
EXECUTE.

RECODE 
  rcsd1a rcsd4a rcsd5a rcsd7a rcsd11a rcsd13a rcsd14a rcsd16a
  (1=0) (2=1) (ELSE=Copy)  .
EXECUTE.


RECODE 
  s1 to s16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rcsd1b  rcsd2b rcsd3b rcsd4b rcsd5b rcsd6b rcsd7b rcsd8b rcsd9b rcsd10b rcsd11b rcsd12b rcsd13b rcsd14b rcsd15b rcsd16b .
EXECUTE.

RECODE 
  rcsd2b rcsd3b rcsd6b rcsd8b rcsd9b rcsd10b rcsd12b rcsd15b
  (1=1) (2=0) (ELSE=Copy)  .
EXECUTE.

RECODE 
  rcsd1b rcsd4b rcsd5b rcsd7b rcsd11b rcsd13b rcsd14b rcsd16b
  (1=0) (2=1) (ELSE=Copy)  .
EXECUTE.


*****************************************************************************************Test 3****************************************************************
*********************Behavior************************************

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


*Diligent

RECODE 
 b2	b4	b12	b18	b20
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdelig1a rbdelig2a rbdelig3a rbdelig4a rbdelig5a .
EXECUTE.

*Economy

RECODE 
  b3	b5	b8	b10	b13
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbecon1a	rbecon2a	rbecon3a	rbecon4a	rbecon5a .
EXECUTE.

RECODE 
  rbecon1a	rbecon2a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Honesty

RECODE 
  b7	b19	b21	b23	b25
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbhones1a	rbhones2a	rbhones3a	rbhones4a	rbhones5a .
EXECUTE.

RECODE 
  rbhones1a	rbhones2a	rbhones3a	rbhones4a	rbhones5a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Discipline

RECODE 
  b6	b9	b14	b16	b17
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbdisci1a	rbdisci2a	rbdisci3a	rbdisci4a	rbdisci5a .
EXECUTE.

*Polite

RECODE 
  b1	b11	b15	b22	b24
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
 rbpolit1a	rbpolit2a	rbpolit3a	rbpolit4a	rbpolit5a .
EXECUTE.

FILTER OFF.
USE ALL.
EXECUTE .

DELETE VARIABLES filter_$ .

Delete variables b1 to b25 .
Execute .

Delete variables s1 to s16 .
Execute .

Delete variables a1 to a25 .
Execute .

**********************************************************************************************Test 4**************************************************************************
*********************Behavior************************************

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

*Physical Cleanness

RECODE 
  b2	b4	b7	b9	b20
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbpcle1a	rbpcle2a	rbpcle3a	rbpcle4a	rbpcle5a .
EXECUTE.

RECODE 
  rbpcle4a	rbpcle5a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Mental Cleanness

RECODE 
  b1	b3	b8	b10	b13
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbmcle1a	rbmcle2a	rbmcle3a	rbmcle4a	rbmcle5a .
EXECUTE.

RECODE 
  rbmcle1a	rbmcle2a	rbmcle3a
  (1=4) (2=3) (3=2) (4=1) (ELSE=Copy)  .
EXECUTE.

*Cooperative

RECODE 
  b5	b6	b12	b15	b16
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbcoop1a	rbcoop2a	rbcoop3a	rbcoop4a	rbcoop5a .
EXECUTE.

*Prosocial Behavior

RECODE 
  b11	b14	b17	b18	b19
  (MISSING=SYSMIS) (ELSE=Copy) INTO 
  rbprosc1a	rbprosc2a	rbprosc3a	rbprosc4a	rbprosc5a .
EXECUTE.


FILTER OFF.
USE ALL.
EXECUTE .

DELETE VARIABLES filter_$ .

Delete variables b1 to b20 .
Execute .

Delete variables s1 to s16 .
Execute .

Delete variables a1 to a20 .
Execute .


**************************************** DIFFERENCE ********************************************

COMPUTE   rbdelig1d  =  rbdelig1b - rbdelig1a  .
EXECUTE .

COMPUTE   rbdelig2d  =  rbdelig2b - rbdelig2a  .
EXECUTE .

COMPUTE   rbdelig3d  =  rbdelig3b - rbdelig3a  .
EXECUTE .

COMPUTE   rbdelig4d  =  rbdelig4b - rbdelig4a  .
EXECUTE .

COMPUTE   rbdelig5d  =  rbdelig5b - rbdelig5a  .
EXECUTE .

COMPUTE   rbecon1d  =  rbecon1b - rbecon1a  .
EXECUTE .

COMPUTE   rbecon2d  =  rbecon2b - rbecon2a  .
EXECUTE .

COMPUTE   rbecon3d  =  rbecon3b - rbecon3a  .
EXECUTE .

COMPUTE   rbecon4d  =  rbecon4b - rbecon4a  .
EXECUTE .

COMPUTE   rbecon5d  =  rbecon5b - rbecon5a  .
EXECUTE .

COMPUTE   rbhones1d  =  rbhones1b - rbhones1a  .
EXECUTE .

COMPUTE   rbhones2d  =  rbhones2b - rbhones2a  .
EXECUTE .

COMPUTE   rbhones3d  =  rbhones3b - rbhones3a  .
EXECUTE .

COMPUTE   rbhones4d  =  rbhones4b - rbhones4a  .
EXECUTE .

COMPUTE   rbhones5d  =  rbhones5b - rbhones5a  .
EXECUTE .

COMPUTE   rbdisci1d  =  rbdisci1b - rbdisci1a  .
EXECUTE .

COMPUTE   rbdisci2d  =  rbdisci2b - rbdisci2a  .
EXECUTE .

COMPUTE   rbdisci3d  =  rbdisci3b - rbdisci3a  .
EXECUTE .

COMPUTE   rbdisci4d  =  rbdisci4b - rbdisci4a  .
EXECUTE .

COMPUTE   rbdisci5d  =  rbdisci5b - rbdisci5a  .
EXECUTE .

COMPUTE   rbpolit1d  =  rbpolit1b - rbpolit1a  .
EXECUTE .

COMPUTE   rbpolit2d  =  rbpolit2b - rbpolit2a  .
EXECUTE .

COMPUTE   rbpolit3d  =  rbpolit3b - rbpolit3a  .
EXECUTE .

COMPUTE   rbpolit4d  =  rbpolit4b - rbpolit4a  .
EXECUTE .

COMPUTE   rbpolit5d  =  rbpolit5b - rbpolit5a  .
EXECUTE .

COMPUTE   rbpcle1d  =  rbpcle1b - rbpcle1a  .
EXECUTE .

COMPUTE   rbpcle2d  =  rbpcle2b - rbpcle2a  .
EXECUTE .

COMPUTE   rbpcle3d  =  rbpcle3b - rbpcle3a  .
EXECUTE .

COMPUTE   rbpcle4d  =  rbpcle4b - rbpcle4a  .
EXECUTE .

COMPUTE   rbpcle5d  =  rbpcle5b - rbpcle5a  .
EXECUTE .

COMPUTE   rbmcle1d  =  rbmcle1b - rbmcle1a  .
EXECUTE .

COMPUTE   rbmcle2d  =  rbmcle2b - rbmcle2a  .
EXECUTE .

COMPUTE   rbmcle3d  =  rbmcle3b - rbmcle3a  .
EXECUTE .

COMPUTE   rbmcle4d  =  rbmcle4b - rbmcle4a  .
EXECUTE .

COMPUTE   rbmcle5d  =  rbmcle5b - rbmcle5a  .
EXECUTE .

COMPUTE   rbcoop1d  =  rbcoop1b - rbcoop1a  .
EXECUTE .

COMPUTE   rbcoop2d  =  rbcoop2b - rbcoop2a  .
EXECUTE .

COMPUTE   rbcoop3d  =  rbcoop3b - rbcoop3a  .
EXECUTE .

COMPUTE   rbcoop4d  =  rbcoop4b - rbcoop4a  .
EXECUTE .

COMPUTE   rbcoop5d  =  rbcoop5b - rbcoop5a  .
EXECUTE .

COMPUTE   rbprosc1d  =  rbprosc1b - rbprosc1a  .
EXECUTE .

COMPUTE   rbprosc2d  =  rbprosc2b - rbprosc2a  .
EXECUTE .

COMPUTE   rbprosc3d  =  rbprosc3b - rbprosc3a  .
EXECUTE .

COMPUTE   rbprosc4d  =  rbprosc4b - rbprosc4a  .
EXECUTE .

COMPUTE   rbprosc5d  =  rbprosc5b - rbprosc5a  .
EXECUTE .


COMPUTE mcsda = sum.16(rmcsd1a to rmcsd16a) .
EXECUTE .

COMPUTE mcsdb = sum.16(rmcsd1b to rmcsd16b) .
EXECUTE .

COMPUTE mcsdd = mcsdb - mcsda .
EXECUTE .

COMPUTE sdmean = (mcsdb + mcsda)/2 .
EXECUTE .

COMPUTE csda = sum.16(rcsd1a to rcsd16a) .
EXECUTE .

COMPUTE csdb = sum.16(rcsd1b to rcsd16b) .
EXECUTE .

COMPUTE csdd = csdb - csda .
EXECUTE .

COMPUTE sdmean = (csdb + csda)/2 .
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 .

RECODE
  sex
  (1=1) (2=0) (MISSING=SYSMIS) into dsex .
EXECUTE .


MVA
  Income Grade FamIncome rbdelig1a rbdelig2a rbdelig3a rbdelig4a rbdelig5a
  rbecon1a rbecon2a rbecon3a rbecon4a rbecon5a rbhones1a rbhones2a rbhones3a
  rbhones4a rbhones5a rbdisci1a rbdisci2a rbdisci3a rbdisci4a rbdisci5a
  rbpolit1a rbpolit2a rbpolit3a rbpolit4a rbpolit5a rcsd1a rcsd2a rcsd3a
  rcsd4a rcsd5a rcsd6a rcsd7a rcsd8a rcsd9a rcsd10a rcsd11a rcsd12a rcsd13a
  rcsd14a rcsd15a rcsd16a rbdelig1b rbdelig2b rbdelig3b rbdelig4b rbdelig5b
  rbecon1b rbecon2b rbecon3b rbecon4b rbecon5b rbhones1b rbhones2b rbhones3b
  rbhones4b rbhones5b rbdisci1b rbdisci2b rbdisci3b rbdisci4b rbdisci5b
  rbpolit1b rbpolit2b rbpolit3b rbpolit4b rbpolit5b rbpcle1b rbpcle2b rbpcle3b
  rbpcle4b rbpcle5b rbmcle1b rbmcle2b rbmcle3b rbmcle4b rbmcle5b rbcoop1b
  rbcoop2b rbcoop3b rbcoop4b rbcoop5b rbprosc1b rbprosc2b rbprosc3b rbprosc4b
  rbprosc5b rcsd1b rcsd2b rcsd3b rcsd4b rcsd5b rcsd6b rcsd7b rcsd8b rcsd9b
  rcsd10b rcsd11b rcsd12b rcsd13b rcsd14b rcsd15b rcsd16b ParentEd  Sex Age
  Live
  /MAXCAT = 25
  /ID = SchStuID
  /CATEGORICAL = Sex Age Live
  /TTEST PROB PERCENT=5
  /CROSSTAB PERCENT=5
  /MISMATCH PERCENT=5
  /EM ( TOLERANCE=0.001 CONVERGENCE=0.0001 ITERATIONS=500
  OUTFILE='C:\Users\fujitsu\Desktop\Form 3 All First Second EM.sav' ) .

MVA
  Income Grade FamIncome rbpcle1a rbpcle2a rbpcle3a rbpcle4a rbpcle5a
  rbmcle1a rbmcle2a rbmcle3a rbmcle4a rbmcle5a rbcoop1a rbcoop2a rbcoop3a
  rbcoop4a rbcoop5a rbprosc1a rbprosc2a rbprosc3a rbprosc4a rbprosc5a rcsd1a
  rcsd2a rcsd3a rcsd4a rcsd5a rcsd6a rcsd7a rcsd8a rcsd9a rcsd10a rcsd11a
  rcsd12a rcsd13a rcsd14a rcsd15a rcsd16a rbdelig1b rbdelig2b rbdelig3b
  rbdelig4b rbdelig5b rbecon1b rbecon2b rbecon3b rbecon4b rbecon5b rbhones1b
  rbhones2b rbhones3b rbhones4b rbhones5b rbdisci1b rbdisci2b rbdisci3b
  rbdisci4b rbdisci5b rbpolit1b rbpolit2b rbpolit3b rbpolit4b rbpolit5b
  rbpcle1b rbpcle2b rbpcle3b rbpcle4b rbpcle5b rbmcle1b rbmcle2b rbmcle3b
  rbmcle4b rbmcle5b rbcoop1b rbcoop2b rbcoop3b rbcoop4b rbcoop5b rbprosc1b
  rbprosc2b rbprosc3b rbprosc4b rbprosc5b rcsd1b rcsd2b rcsd3b rcsd4b rcsd5b
  rcsd6b rcsd7b rcsd8b rcsd9b rcsd10b rcsd11b rcsd12b rcsd13b rcsd14b rcsd15b
  rcsd16b ParentEd  Sex Age Live
  /MAXCAT = 25
  /ID = SchStuID
  /CATEGORICAL = Sex Age Live
  /TTEST PROB PERCENT=5
  /CROSSTAB PERCENT=5
  /MISMATCH PERCENT=5
  /EM ( TOLERANCE=0.001 CONVERGENCE=0.0001 ITERATIONS=500
  OUTFILE='C:\Users\fujitsu\Desktop\Form 4 All First Second EM.sav' ) .

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

VARSTOCASES  /MAKE trans1 FROM rbdelig1d rbdelig2d rbdelig3d rbdelig4d
  rbdelig5d rbecon1d rbecon2d rbecon3d rbecon4d rbecon5d rbhones1d rbhones2d
  rbhones3d rbhones4d rbhones5d rbdisci1d rbdisci2d rbdisci3d rbdisci4d
  rbdisci5d rbpolit1d rbpolit2d rbpolit3d rbpolit4d rbpolit5d rbpcle1d
  rbpcle2d rbpcle3d rbpcle4d rbpcle5d rbmcle1d rbmcle2d rbmcle3d rbmcle4d
  rbmcle5d rbcoop1d rbcoop2d rbcoop3d rbcoop4d rbcoop5d rbprosc1d rbprosc2d
  rbprosc3d rbprosc4d rbprosc5d
 /INDEX = Name(trans1)
 /KEEP =  SchStuID SchoolID
 /NULL = KEEP.

RECODE
  Name
  ('rbdelig1d'=1)  ('rbdelig2d'=1)  ('rbdelig3d'=1)  ('rbdelig4d'=1)
  ('rbdelig5d'=1)  (ELSE=0)  INTO  bdelig .
EXECUTE .

RECODE
  Name
  ('rbecon1d'=1)  ('rbecon2d'=1)  ('rbecon3d'=1)  ('rbecon4d'=1)
  ('rbecon5d'=1)  (ELSE=0)  INTO  becon .
EXECUTE .

RECODE
  Name
  ('rbhones1d'=1)  ('rbhones2d'=1)  ('rbhones3d'=1)  ('rbhones4d'=1)
  ('rbhones5d'=1)  (ELSE=0)  INTO  bhones .
EXECUTE .

RECODE
  Name
  ('rbdisci1d'=1)  ('rbdisci2d'=1)  ('rbdisci3d'=1)  ('rbdisci4d'=1)
  ('rbdisci5d'=1)  (ELSE=0)  INTO  bdisci .
EXECUTE .

RECODE
  Name
  ('rbpolit1d'=1)  ('rbpolit2d'=1)  ('rbpolit3d'=1)  ('rbpolit4d'=1)
  ('rbpolit5d'=1)  (ELSE=0)  INTO  bpolit .
EXECUTE .

RECODE
  Name
  ('rbpcle1d'=1)  ('rbpcle2d'=1)  ('rbpcle3d'=1)  ('rbpcle4d'=1)
  ('rbpcle5d'=1)  (ELSE=0)  INTO  bpcle .
EXECUTE .

RECODE
  Name
  ('rbmcle1d'=1)  ('rbmcle2d'=1)  ('rbmcle3d'=1)  ('rbmcle4d'=1)
  ('rbmcle5d'=1)  (ELSE=0)  INTO  bmcle .
EXECUTE .

RECODE
  Name
  ('rbcoop1d'=1)  ('rbcoop2d'=1)  ('rbcoop3d'=1)  ('rbcoop4d'=1)
  ('rbcoop5d'=1)  (ELSE=0)  INTO  bcoop .
EXECUTE .

RECODE
  Name
  ('rbprosc1d'=1)  ('rbprosc2d'=1)  ('rbprosc3d'=1)  ('rbprosc4d'=1)
  ('rbprosc5d'=1)  (ELSE=0)  INTO  bprosc .
EXECUTE .



AGGREGATE
  /OUTFILE='C:\Users\fujitsu\Desktop\Moral Evaluation\Second Time'+
 ' Analysis\Form 4 Pratom School Gain 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 4 Pratom School Gain 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.