* Encoding: UTF-8.
***PARENTING SYNTAX MILITARY FAMILIES

***Demographics

DESCRIPTIVES VARIABLES=age
  /STATISTICS=MEAN STDDEV RANGE MIN MAX KURTOSIS SKEWNESS.

FREQUENCIES VARIABLES=gender
  /STATISTICS=RANGE MINIMUM MAXIMUM SUM 
  /ORDER=ANALYSIS.

FREQUENCIES VARIABLES=ethnicity
  /ORDER=ANALYSIS.

**NARCISSISM

COMPUTE Rivalry=MEAN(NARQ_4,NARQ_6,NARQ_9,NARQ_10,NARQ_11,NARQ_12,NARQ_13,NARQ_14,NARQ_17). 
EXECUTE.

RELIABILITY
  /VARIABLES= NARQ_4 NARQ_6 NARQ_9 NARQ_10 NARQ_11 NARQ_12 NARQ_13 NARQ_14 NARQ_17
  /SCALE('Rivalry') ALL/MODEL=ALPHA.

COMPUTE Admire=MEAN(NARQ_1,NARQ_2,NARQ_3,NARQ_5,NARQ_7,NARQ_8,NARQ_15,NARQ_16,NARQ_18). 
EXECUTE.

RELIABILITY
  /VARIABLES= NARQ_1,NARQ_2,NARQ_3,NARQ_5,NARQ_7,NARQ_8,NARQ_15,NARQ_16,NARQ_18
  /SCALE('Admire') ALL/MODEL=ALPHA.

***Computes total narcissism score ***

COMPUTE NarcTot=MEAN(NARQ_1 to NARQ_18). 
EXECUTE.

RELIABILITY
  /VARIABLES= NARQ_1 to NARQ_18
  /SCALE('NarcTot') ALL/MODEL=ALPHA.

** IM Management (from the BIDR-16) 

RECODE IM_1 IM_3 IM_4 IM_5 (8=1) (7=2) (6=3) (5=4) (4=5) (3=6) (2=7) (1=8) INTO rIM_1 rIM_3 rIM_4 rIM_5.
EXECUTE.

COMPUTE IM=MEAN(rIM_1,IM_2,rIM_3,rIM_4,rIM_5,IM_6,IM_7,IM_8).
EXECUTE.

RELIABILITY
  /VARIABLES= rIM_1,IM_2,rIM_3,rIM_4,rIM_5,IM_6,IM_7,IM_8
  /SCALE('IM') ALL
  /MODEL=ALPHA.

** PSDQ Self 

COMPUTE Auth_ive=MEAN(PSDQ_S_1 to PSDQ_S_15).
EXECUTE.

RELIABILITY
  /VARIABLES= PSDQ_S_1 to PSDQ_S_15
  /SCALE('Auth_ive') ALL
  /MODEL=ALPHA.

COMPUTE Auth_ian=MEAN(PSDQ_S_16 to PSDQ_S_27).
EXECUTE.

RELIABILITY
  /VARIABLES= PSDQ_S_16 to PSDQ_S_27
  /SCALE('Auth_ian') ALL
  /MODEL=ALPHA.

COMPUTE Perm=MEAN(PSDQ_S_28 to PSDQ_S_32).
EXECUTE.

RELIABILITY
  /VARIABLES= PSDQ_S_28 to PSDQ_S_32
  /SCALE('Perm') ALL
  /MODEL=ALPHA.

**Family Assessment Device - General Functioning Subscale; higher scores = better family functioning

RECODE FAD_1 FAD_3 FAD_5 FAD_7 FAD_9 FAD_11 (8=1) (7=2) (6=3) (5=4) (4=5) (3=6) (2=7) (1=8) INTO rFAD_1 rFAD_3 rFAD_5 rFAD_7 rFAD_9 rFAD_11.
EXECUTE.

COMPUTE FAD=MEAN(rFAD_1, FAD_2, rFAD_3, FAD_4, rFAD_5, FAD_6, rFAD_7, FAD_8, rFAD_9, FAD_10, rFAD_11, FAD_12).
EXECUTE.

RELIABILITY
  /VARIABLES= rFAD_1, FAD_2, rFAD_3, FAD_4, rFAD_5, FAD_6, rFAD_7, FAD_8, rFAD_9, FAD_10, rFAD_11, FAD_12
  /SCALE('FAD') ALL
  /MODEL=ALPHA.

**Descriptives Scales

DESCRIPTIVES VARIABLES= Admire Rivalry NarcTot IM Auth_ive Auth_ian Perm
 FAD 
  /SAVE
  /STATISTICS=MEAN SUM STDDEV VARIANCE RANGE MIN MAX KURTOSIS SKEWNESS.

***narcissism levels of serving vs. not serving 
    
DATASET ACTIVATE DataSet1.
T-TEST GROUPS=Serving(1 2)
  /MISSING=ANALYSIS
  /VARIABLES=Admire
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

DATASET ACTIVATE DataSet1.
T-TEST GROUPS=Serving(1 2)
  /MISSING=ANALYSIS
  /VARIABLES=Rivalry
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

**comissioned or non-comissioned.

USE ALL.
COMPUTE filter_$=(Serving = 1).
VARIABLE LABELS filter_$ 'Serving = 1 (FILTER)'.
VALUE LABELS filter_$ 0 'Not Selected' 1 'Selected'.
FORMATS filter_$ (f1.0).
FILTER BY filter_$.

DATASET ACTIVATE DataSet1.
T-TEST GROUPS=C_sion(0 1)
  /MISSING=ANALYSIS
  /VARIABLES=Admire
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).

DATASET ACTIVATE DataSet1.
T-TEST GROUPS=C_sion(0 1)
  /MISSING=ANALYSIS
  /VARIABLES=Rivalry
  /ES DISPLAY(TRUE)
  /CRITERIA=CI(.95).
EXECUTE.

FILTER OFF.
USE ALL.
EXECUTE.

**Correlations 

CORRELATIONS
  /VARIABLES=Admire Rivalry NarcTot IM  Auth_ive Auth_ian Perm FAD 
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.
  
**Multilevel mediation model

MLmed data = DataSet1 
/x = Rivalry
/randx = 010 
/cov1 = Admire 
/cov2 = IM 
/m1 = Auth_ive
/m2 = Auth_ian 
/randm = 10 
/mcovmat = UN 
/y = FAD
/cluster = Couple 
/folder = /Users/jessicakeevash/Documents.

** Calculate the total multilevel R2. Null model**
    
MIXED FAD 
  /CRITERIA=DFMETHOD(SATTERTHWAITE) CIN(95) MXITER(100) MXSTEP(10) SCORING(1)  
    SINGULAR(0.000000000001) HCONVERGE(0.00000001, RELATIVE) LCONVERGE(0, ABSOLUTE) PCONVERGE(0,  
    ABSOLUTE) 
  /FIXED=| SSTYPE(3) 
  /METHOD=REML 
  /PRINT=G  SOLUTION TESTCOV 
  /RANDOM=INTERCEPT | SUBJECT(Couple) COVTYPE(VC). 

**full model output**

DATASET ACTIVATE DataSet1. 

MIXED FAD WITH Admire Rivalry IM Auth_ive Auth_ian 
  /CRITERIA=DFMETHOD(SATTERTHWAITE) CIN(95) MXITER(100) MXSTEP(10) SCORING(1)  
    SINGULAR(0.000000000001) HCONVERGE(0.00000001, RELATIVE) LCONVERGE(0, ABSOLUTE) PCONVERGE(0,  
    ABSOLUTE) 
  /FIXED=Admire Rivalry IM Auth_ive Auth_ian | SSTYPE(3) 
  /METHOD=REML 
  /RANDOM=INTERCEPT | SUBJECT(Couple) COVTYPE(VC). 

**Covariate models**
    
MIXED FAD BY Admire Auth_ive Auth_ian WITH Rivalry IM 
/CRITERIA=DFMETHOD(SATTERTHWAITE) CIN(95) MXITER(100) MXSTEP(10) SCORING(1)  
SINGULAR(0.000000000001) HCONVERGE(0.00000001, RELATIVE) LCONVERGE(0, ABSOLUTE) PCONVERGE(0,ABSOLUTE) 
  /FIXED=Admire Rivalry IM Auth_ive Auth_ian | SSTYPE(3)
  /METHOD=REML 
  /RANDOM=INTERCEPT | SUBJECT(Couple) COVTYPE(VC). 

MIXED FAD BY Rivalry Auth_ive Auth_ian WITH Admire IM 
/CRITERIA=DFMETHOD(SATTERTHWAITE) CIN(95) MXITER(100) MXSTEP(10) SCORING(1)  
SINGULAR(0.000000000001) HCONVERGE(0.00000001, RELATIVE) LCONVERGE(0, ABSOLUTE) PCONVERGE(0,ABSOLUTE) 
  /FIXED=Admire Rivalry IM Auth_ive Auth_ian | SSTYPE(3)
  /METHOD=REML 
  /RANDOM=INTERCEPT | SUBJECT(Couple) COVTYPE(VC).