Haimovitz, K., & Dweck, C. S. (2016). What Predicts Children's Fixed and Growth Intelligence Mind-Sets? Not Their Parents' Views of Intelligence but Their Parents' Views of Failure. Psychological Science. doi:10.1177/0956797616639727
require(umx)
data = sem::readMoments(file = "", diag = TRUE)
1
.29 1
.29 -.06 1
.24 .17 -.07 1
.37 .01 -.32 .44 1
x <- c("Parent_failure_ms", "Parent_IQ_ms", "Parent_view_child_competent", "Child_IQ_ms", "Child_view_Parents_learning_orient")
df = umx_lower2full(data, diag = T, byrow = T, dimnames = list(x,x))
nSubjects = 73
manifests = c("Parent_failure_ms", "Child_view_Parents_learning_orient", "Child_IQ_ms")
myData = mxData(df, type = "cov", numObs = nSubjects)
m1 <- umxRAM("dweckFig1", data = myData,
umxPath(var = manifests),
umxPath("Parent_failure_ms", to = c("Child_view_Parents_learning_orient", "Child_IQ_ms")),
umxPath("Child_view_Parents_learning_orient", to = "Child_IQ_ms")
)
umxSummary(m1, showEstimates = "std")
plot(m1)