head(data_Cohen_Aiken_West_2003_7)
CAW_7 <-
MODERATED_REGRESSION(data=data_Cohen_Aiken_West_2003_7, DV='yendu',
IV='xage',IV_range='tumble',
MOD='zexer', MOD_levels='quantiles',
quantiles_IV=c(.1, .9), quantiles_MOD=c(.25, .5, .75),
plot_type = 'interaction')
REGIONS_OF_SIGNIFICANCE(model=CAW_7)
# \donttest{
head(data_Bauer_Curran_2005)
HSBmod <-nlme::lme(MathAch ~ Sector + CSES + CSES:Sector,
data = data_Bauer_Curran_2005,
random = ~1 + CSES|School, method = "ML")
summary(HSBmod)
REGIONS_OF_SIGNIFICANCE(model=HSBmod,
plot_title='Johnson-Neyman Regions of Significance',
Xaxis_label='Child SES',
Yaxis_label='Slopes of School Sector on Math achievement')
# moderated regression -- with numeric values for IV_range & MOD_levels='AikenWest'
mharsh_agg <-
MODERATED_REGRESSION(data=data_OConnor_Dvorak_2001, DV='Aggressive_Behavior',
IV='Maternal_Harshness', IV_range=c(1,7.7),
MOD='Resiliency', MOD_levels='AikenWest',
quantiles_IV=c(.1, .9), quantiles_MOD=c(.25, .5, .75),
center = FALSE,
plot_type = 'interaction',
DV_range = c(1,6),
Xaxis_label='Maternal Harshness',
Yaxis_label='Adolescent Aggressive Behavior',
legend_label='Resiliency')
REGIONS_OF_SIGNIFICANCE(model=mharsh_agg,
plot_title='Johnson-Neyman Regions of Significance',
Xaxis_label='Resiliency',
Yaxis_label='Slopes of Maternal Harshness on Aggressive Behavior')
# }
Run the code above in your browser using DataLab