Supplemental Material for How Are Adverse Childhood Experiences Associated With Online Aggression in Adolescents? Serial Mediation From a Longitudinal Perspective

How are Adverse Childhood Experiences Associated with Online Aggression in Adolescents?Serial Mediation from a Longitudinal Perspective ### CFA test for interpersonal alienation, parental warmth, cyberbullying ### and online trolling (without the 6th item) library(lavaan) library(foreign) ## import data OAB <read.spss("ACE& OA -MI.sav", to.data.frame=TRUE,use.value.labels=FALSE)head(OAB) ## Specify the Models modelIA <-' # first-order factor Lone1 =~IA1.1 + IA1.5 + IA1.6R + IA1.8 + IA1.10 + IA1.11R + IA1.12 FA1 =~IA1.7R+ IA1.13 + IA1.14 + IA1.15 SA1 =~IA1.2+ IA1.3 + IA1.4 + IA1.9 # general factor IA1 =~Lone1 + FA1 + SA1 IA1.6R ~~IA1.7R' modelEW <-'EW1 =~EW1.1 + EW1.2 + EW1.3 + EW1.4 + EW1.5 + EW1.6 + EW1.7 + EW1.8 + EW1.9 + EW1.10 + EW1.11 + EW1.12 + EW1.13 + EW1.14 + EW1.15 + EW1.16 + EW1.17' modelCB <-'CB1 =~CB1.1 + CB1.2 + CB1.3 + CB1.4 + CB1.5 + CB1.6 + CB1.7 + CB1.8 + CB1.9' modelOT <-'OT1 =~OT1.1 + OT1.2 + OT1.3 + OT1.4 + OT1.5 + OT1.7 + OT1.8' ## Fit the CFA Models fitIA <cfa(modelIA, data = OAB, estimator = "MLR", std.lv = TRUE) summary(fitIA, fit.measures = TRUE, standardized = TRUE) modindices(fitIA, sort = TRUE, minimum.value= 20) fitEW <cfa(modelEW, data = OAB, estimator = "MLR", std.lv = TRUE)