! Predictor variable - X
! Mediator variable(s) – M
! Moderator variable(s) – W, V, Q
! Outcome variable - Y
USEVARIABLES = X M W V Q Y XW XV XQ VQ MV MQ XVQ MVQ;
! Create interaction terms
! Note that they have to be placed at end of USEVARIABLES subcommand above
DEFINE:
   MQ = M*Q;
   MV = M*V;
   XW = X*W;
   XQ = X*Q;
   XV = X*V;
   VQ = V*Q;
   MVQ = M*V*Q;
   XVQ = X*V*Q;
ANALYSIS:
   TYPE = GENERAL;
   ESTIMATOR = ML;
   BOOTSTRAP = 10000;
! In model statement name each path and intercept using parentheses
MODEL:
   [Y] (b0);
   Y ON M (b1);
   Y ON MV (b2);
   Y ON MQ (b3);
   Y ON MVQ (b4);
   Y ON X (cdash1);
   Y ON V (cdash2);
   Y ON Q (cdash3);
   Y ON XV (cdash4);
   Y ON XQ (cdash5);
   Y ON VQ (cdash6);
   Y ON XVQ (cdash7);
   [M] (a0);
   M ON X (a1);
   M ON W (a2);
   M ON XW (a3);
! Use model constraint subcommand to test conditional indirect effects
! You need to pick low, medium and high moderator values for W, V, Q
! for example, of 1 SD below mean, mean, 1 SD above mean
! 3 moderators, 3 values for each, gives 27 combinations
! arbitrary naming convention for conditional indirect and total effects used below:
! HWMVLQ = high value of W, medium value of V and low value of Q, etc.
MODEL CONSTRAINT:
    NEW(LOW_W MED_W HIGH_W LOW_V MED_V HIGH_V LOW_Q MED_Q HIGH_Q
    ILWLVLQ IMWLVLQ IHWLVLQ ILWMVLQ IMWMVLQ IHWMVLQ
    ILWHVLQ IMWHVLQ IHWHVLQ
    ILWLVMQ IMWLVMQ IHWLVMQ ILWMVMQ IMWMVMQ IHWMVMQ
    ILWHVMQ IMWHVMQ IHWHVMQ
    ILWLVHQ IMWLVHQ IHWLVHQ ILWMVHQ IMWMVHQ IHWMVHQ
    ILWHVHQ IMWHVHQ IHWHVHQ
    DLOV_LOQ DMEV_LOQ DHIV_LOQ DLOV_MEQ DMEV_MEQ DHIV_MEQ
    DLOV_HIQ DMEV_HIQ DHIV_HIQ
    TLWLVLQ TMWLVLQ THWLVLQ TLWMVLQ TMWMVLQ THWMVLQ
    TLWHVLQ TMWHVLQ THWHVLQ
    TLWLVMQ TMWLVMQ THWLVMQ TLWMVMQ TMWMVMQ THWMVMQ
    TLWHVMQ TMWHVMQ THWHVMQ
    TLWLVHQ TMWLVHQ THWLVHQ TLWMVHQ TMWMVHQ THWMVHQ
    TLWHVHQ TMWHVHQ THWHVHQ);
    LOW_W = #LOWW;   ! replace #LOWW in the code with your chosen low value of W
    MED_W = #MEDW;   ! replace #MEDW in the code with your chosen medium value of W
    HIGH_W = #HIGHW;   ! replace #HIGHW in the code with your chosen high value of W
    LOW_V = #LOWV;   ! replace #LOWV in the code with your chosen low value of V
    MED_V = #MEDV;   ! replace #MEDV in the code with your chosen medium value of V
    HIGH_V = #HIGHV;   ! replace #HIGHV in the code with your chosen high value of V
    LOW_Q = #LOWQ;   ! replace #LOWQ in the code with your chosen low value of Q
    MED_Q = #MEDQ;   ! replace #MEDQ in the code with your chosen medium value of Q
    HIGH_Q = #HIGHQ;   ! replace #HIGHQ in the code with your chosen high value of Q
! Calc conditional indirect effects for each combination of moderator values
    ILWLVLQ = a1*b1 + a3*b1*LOW_W + a1*b2*LOW_V + a3*b2*LOW_W*LOW_V +
     a1*b3*LOW_Q + a3*b3*LOW_W*LOW_Q + a1*b4*LOW_V*LOW_Q +
     a3*b4*LOW_W*LOW_V*LOW_Q;
    IMWLVLQ = a1*b1 + a3*b1*MED_W + a1*b2*LOW_V + a3*b2*MED_W*LOW_V +
     a1*b3*LOW_Q + a3*b3*MED_W*LOW_Q + a1*b4*LOW_V*LOW_Q +
     a3*b4*MED_W*LOW_V*LOW_Q;
    IHWLVLQ = a1*b1 + a3*b1*HIGH_W + a1*b2*LOW_V + a3*b2*HIGH_W*LOW_V +
     a1*b3*LOW_Q + a3*b3*HIGH_W*LOW_Q + a1*b4*LOW_V*LOW_Q +
     a3*b4*HIGH_W*LOW_V*LOW_Q;
    ILWMVLQ = a1*b1 + a3*b1*LOW_W + a1*b2*MED_V + a3*b2*LOW_W*MED_V +
     a1*b3*LOW_Q + a3*b3*LOW_W*LOW_Q + a1*b4*MED_V*LOW_Q +
     a3*b4*LOW_W*MED_V*LOW_Q;
    IMWMVLQ = a1*b1 + a3*b1*MED_W + a1*b2*MED_V + a3*b2*MED_W*MED_V +
     a1*b3*LOW_Q + a3*b3*MED_W*LOW_Q + a1*b4*MED_V*LOW_Q +
     a3*b4*MED_W*MED_V*LOW_Q;
    IHWMVLQ = a1*b1 + a3*b1*HIGH_W + a1*b2*MED_V + a3*b2*HIGH_W*MED_V +
     a1*b3*LOW_Q + a3*b3*HIGH_W*LOW_Q + a1*b4*MED_V*LOW_Q +
     a3*b4*HIGH_W*MED_V*LOW_Q;
    ILWHVLQ = a1*b1 + a3*b1*LOW_W + a1*b2*HIGH_V + a3*b2*LOW_W*HIGH_V +
     a1*b3*LOW_Q + a3*b3*LOW_W*LOW_Q + a1*b4*HIGH_V*LOW_Q +
     a3*b4*LOW_W*HIGH_V*LOW_Q;
    IMWHVLQ = a1*b1 + a3*b1*MED_W + a1*b2*HIGH_V + a3*b2*MED_W*HIGH_V +
     a1*b3*LOW_Q + a3*b3*MED_W*LOW_Q + a1*b4*HIGH_V*LOW_Q +
     a3*b4*MED_W*HIGH_V*LOW_Q;
    IHWHVLQ = a1*b1 + a3*b1*HIGH_W + a1*b2*HIGH_V + a3*b2*HIGH_W*HIGH_V +
     a1*b3*LOW_Q + a3*b3*HIGH_W*LOW_Q + a1*b4*HIGH_V*LOW_Q +
     a3*b4*HIGH_W*HIGH_V*LOW_Q;
    ILWLVMQ = a1*b1 + a3*b1*LOW_W + a1*b2*LOW_V + a3*b2*LOW_W*LOW_V +
     a1*b3*MED_Q + a3*b3*LOW_W*MED_Q + a1*b4*LOW_V*MED_Q +
     a3*b4*LOW_W*LOW_V*MED_Q;
    IMWLVMQ = a1*b1 + a3*b1*MED_W + a1*b2*LOW_V + a3*b2*MED_W*LOW_V +
     a1*b3*MED_Q + a3*b3*MED_W*MED_Q + a1*b4*LOW_V*MED_Q +
     a3*b4*MED_W*LOW_V*MED_Q;
    IHWLVMQ = a1*b1 + a3*b1*HIGH_W + a1*b2*LOW_V + a3*b2*HIGH_W*LOW_V +
     a1*b3*MED_Q + a3*b3*HIGH_W*MED_Q + a1*b4*LOW_V*MED_Q +
     a3*b4*HIGH_W*LOW_V*MED_Q;
    ILWMVMQ = a1*b1 + a3*b1*LOW_W + a1*b2*MED_V + a3*b2*LOW_W*MED_V +
     a1*b3*MED_Q + a3*b3*LOW_W*MED_Q + a1*b4*MED_V*MED_Q +
     a3*b4*LOW_W*MED_V*MED_Q;
    IMWMVMQ = a1*b1 + a3*b1*MED_W + a1*b2*MED_V + a3*b2*MED_W*MED_V +
     a1*b3*MED_Q + a3*b3*MED_W*MED_Q + a1*b4*MED_V*MED_Q +
     a3*b4*MED_W*MED_V*MED_Q;
    IHWMVMQ = a1*b1 + a3*b1*HIGH_W + a1*b2*MED_V + a3*b2*HIGH_W*MED_V +
     a1*b3*MED_Q + a3*b3*HIGH_W*MED_Q + a1*b4*MED_V*MED_Q +
     a3*b4*HIGH_W*MED_V*MED_Q;
    ILWHVMQ = a1*b1 + a3*b1*LOW_W + a1*b2*HIGH_V + a3*b2*LOW_W*HIGH_V +
     a1*b3*MED_Q + a3*b3*LOW_W*MED_Q + a1*b4*HIGH_V*MED_Q +
     a3*b4*LOW_W*HIGH_V*MED_Q;
    IMWHVMQ = a1*b1 + a3*b1*MED_W + a1*b2*HIGH_V + a3*b2*MED_W*HIGH_V +
     a1*b3*MED_Q + a3*b3*MED_W*MED_Q + a1*b4*HIGH_V*MED_Q +
     a3*b4*MED_W*HIGH_V*MED_Q;
    IHWHVMQ = a1*b1 + a3*b1*HIGH_W + a1*b2*HIGH_V + a3*b2*HIGH_W*HIGH_V +
     a1*b3*MED_Q + a3*b3*HIGH_W*MED_Q + a1*b4*HIGH_V*MED_Q +
     a3*b4*HIGH_W*HIGH_V*MED_Q;
    ILWLVHQ = a1*b1 + a3*b1*LOW_W + a1*b2*LOW_V + a3*b2*LOW_W*LOW_V +
     a1*b3*HIGH_Q + a3*b3*LOW_W*HIGH_Q + a1*b4*LOW_V*HIGH_Q +
     a3*b4*LOW_W*LOW_V*HIGH_Q;
    IMWLVHQ = a1*b1 + a3*b1*MED_W + a1*b2*LOW_V + a3*b2*MED_W*LOW_V +
     a1*b3*HIGH_Q + a3*b3*MED_W*HIGH_Q + a1*b4*LOW_V*HIGH_Q +
     a3*b4*MED_W*LOW_V*HIGH_Q;
    IHWLVHQ = a1*b1 + a3*b1*HIGH_W + a1*b2*LOW_V + a3*b2*HIGH_W*LOW_V +
     a1*b3*HIGH_Q + a3*b3*HIGH_W*HIGH_Q + a1*b4*LOW_V*HIGH_Q +
     a3*b4*HIGH_W*LOW_V*HIGH_Q;
    ILWMVHQ = a1*b1 + a3*b1*LOW_W + a1*b2*MED_V + a3*b2*LOW_W*MED_V +
     a1*b3*HIGH_Q + a3*b3*LOW_W*HIGH_Q + a1*b4*MED_V*HIGH_Q +
     a3*b4*LOW_W*MED_V*HIGH_Q;
    IMWMVHQ = a1*b1 + a3*b1*MED_W + a1*b2*MED_V + a3*b2*MED_W*MED_V +
     a1*b3*HIGH_Q + a3*b3*MED_W*HIGH_Q + a1*b4*MED_V*HIGH_Q +
     a3*b4*MED_W*MED_V*HIGH_Q;
    IHWMVHQ = a1*b1 + a3*b1*HIGH_W + a1*b2*MED_V + a3*b2*HIGH_W*MED_V +
     a1*b3*HIGH_Q + a3*b3*HIGH_W*HIGH_Q + a1*b4*MED_V*HIGH_Q +
     a3*b4*HIGH_W*MED_V*HIGH_Q;
    ILWHVHQ = a1*b1 + a3*b1*LOW_W + a1*b2*HIGH_V + a3*b2*LOW_W*HIGH_V +
     a1*b3*HIGH_Q + a3*b3*LOW_W*HIGH_Q + a1*b4*HIGH_V*HIGH_Q +
     a3*b4*LOW_W*HIGH_V*HIGH_Q;
    IMWHVHQ = a1*b1 + a3*b1*MED_W + a1*b2*HIGH_V + a3*b2*MED_W*HIGH_V +
     a1*b3*HIGH_Q + a3*b3*MED_W*HIGH_Q + a1*b4*HIGH_V*HIGH_Q +
     a3*b4*MED_W*HIGH_V*HIGH_Q;
    IHWHVHQ = a1*b1 + a3*b1*HIGH_W + a1*b2*HIGH_V + a3*b2*HIGH_W*HIGH_V +
     a1*b3*HIGH_Q + a3*b3*HIGH_W*HIGH_Q + a1*b4*HIGH_V*HIGH_Q +
     a3*b4*HIGH_W*HIGH_V*HIGH_Q;
! Calc conditional direct effects for each combination of moderator values
    DLOV_LOQ = cdash1 + cdash4*LOW_V + cdash5*LOW_Q + cdash7*LOW_V*LOW_Q;
    DMEV_LOQ = cdash1 + cdash4*MED_V + cdash5*LOW_Q + cdash7*MED_V*LOW_Q;
    DHIV_LOQ = cdash1 + cdash4*HIGH_V + cdash5*LOW_Q + cdash7*HIGH_V*LOW_Q;
    DLOV_MEQ = cdash1 + cdash4*LOW_V + cdash5*MED_Q + cdash7*LOW_V*MED_Q;
    DMEV_MEQ = cdash1 + cdash4*MED_V + cdash5*MED_Q + cdash7*MED_V*MED_Q;
    DHIV_MEQ = cdash1 + cdash4*HIGH_V + cdash5*MED_Q + cdash7*HIGH_V*MED_Q;
    DLOV_HIQ = cdash1 + cdash4*LOW_V + cdash5*HIGH_Q + cdash7*LOW_V*HIGH_Q;
    DMEV_HIQ = cdash1 + cdash4*MED_V + cdash5*HIGH_Q + cdash7*MED_V*HIGH_Q;
    DHIV_HIQ = cdash1 + cdash4*HIGH_V + cdash5*HIGH_Q + cdash7*HIGH_V*HIGH_Q;
! Calc conditional total effects for each combination of moderator values
    TLWLVLQ = ILWLVLQ + DLOV_LOQ;
    TMWLVLQ = IMWLVLQ + DLOV_LOQ;
    THWLVLQ = IHWLVLQ + DLOV_LOQ;
    TLWMVLQ = ILWMVLQ + DMEV_LOQ;
    TMWMVLQ = IMWMVLQ + DMEV_LOQ;
    THWMVLQ = IHWMVLQ + DMEV_LOQ;
    TLWHVLQ = ILWHVLQ + DHIV_LOQ;
    TMWHVLQ = IMWHVLQ + DHIV_LOQ;
    THWHVLQ = IHWHVLQ + DHIV_LOQ;
    TLWLVMQ = ILWLVMQ + DLOV_MEQ;
    TMWLVMQ = IMWLVMQ + DLOV_MEQ;
    THWLVMQ = IHWLVMQ + DLOV_MEQ;
    TLWMVMQ = ILWMVMQ + DMEV_MEQ;
    TMWMVMQ = IMWMVMQ + DMEV_MEQ;
    THWMVMQ = IHWMVMQ + DMEV_MEQ;
    TLWHVMQ = ILWHVMQ + DHIV_MEQ;
    TMWHVMQ = IMWHVMQ + DHIV_MEQ;
    THWHVMQ = IHWHVMQ + DHIV_MEQ;
    TLWLVHQ = ILWLVHQ + DLOV_HIQ;
    TMWLVHQ = IMWLVHQ + DLOV_HIQ;
    THWLVHQ = IHWLVHQ + DLOV_HIQ;
    TLWMVHQ = ILWMVHQ + DMEV_HIQ;
    TMWMVHQ = IMWMVHQ + DMEV_HIQ;
    THWMVHQ = IHWMVHQ + DMEV_HIQ;
    TLWHVHQ = ILWHVHQ + DHIV_HIQ;
    TMWHVHQ = IMWHVHQ + DHIV_HIQ;
    THWHVHQ = IHWHVHQ + DHIV_HIQ;
! Use loop plot to plot conditional indirect effect of X on Y for each combination of low, med, high moderator values
! Could be edited to show conditional direct or conditional total effects instead
! NOTE - values of 1,5 in LOOP() statement need to be replaced by
! logical min and max limits of predictor X used in analysis
    PLOT(PLWLVLQ PMWLVLQ PHWLVLQ PLWMVLQ PMWMVLQ PHWMVLQ
    PLWHVLQ PMWHVLQ PHWHVLQ
    PLWLVMQ PMWLVMQ PHWLVMQ PLWMVMQ PMWMVMQ PHWMVMQ
    PLWHVMQ PMWHVMQ PHWHVMQ
    PLWLVHQ PMWLVHQ PHWLVHQ PLWMVHQ PMWMVHQ PHWMVHQ
    PLWHVHQ PMWHVHQ PHWHVHQ);
    LOOP(XVAL,1,5,0.1);
    PLWLVLQ = ILWLVLQ*XVAL;
    PMWLVLQ = IMWLVLQ*XVAL;
    PHWLVLQ = IHWLVLQ*XVAL;
    PLWMVLQ = ILWMVLQ*XVAL;
    PMWMVLQ = IMWMVLQ*XVAL;
    PHWMVLQ = IHWMVLQ*XVAL;
    PLWHVLQ = ILWHVLQ*XVAL;
    PMWHVLQ = IMWHVLQ*XVAL;
    PHWHVLQ = IHWHVLQ*XVAL;
    PLWLVMQ = ILWLVMQ*XVAL;
    PMWLVMQ = IMWLVMQ*XVAL;
    PHWLVMQ = IHWLVMQ*XVAL;
    PLWMVMQ = ILWMVMQ*XVAL;
    PMWMVMQ = IMWMVMQ*XVAL;
    PHWMVMQ = IHWMVMQ*XVAL;
    PLWHVMQ = ILWHVMQ*XVAL;
    PMWHVMQ = IMWHVMQ*XVAL;
    PHWHVMQ = IHWHVMQ*XVAL;
    PLWLVHQ = ILWLVHQ*XVAL;
    PMWLVHQ = IMWLVHQ*XVAL;
    PHWLVHQ = IHWLVHQ*XVAL;
    PLWMVHQ = ILWMVHQ*XVAL;
    PMWMVHQ = IMWMVHQ*XVAL;
    PHWMVHQ = IHWMVHQ*XVAL;
    PLWHVHQ = ILWHVHQ*XVAL;
    PMWHVHQ = IMWHVHQ*XVAL;
    PHWHVHQ = IHWHVHQ*XVAL;
PLOT:
   TYPE = plot2;
OUTPUT:
   STAND CINT(bcbootstrap);