Dweck 2016 Fig1.md

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)