ez run function. Let's modify this to compute the ind/saturated model?

umxRun.r

# umxRun now detects raw RAM, and runs sat and ind. worth speeding this bit up a bit?
m3 <- mxModel("independence",
    # TODO: slightly inefficient, as this has an analytic solution
    mxMatrix(name = "variableLoadings" , type="Diag", nrow = nVar, ncol = nVar, free=T, values = independenceStarts), 
	# labels = loadingsLabels),
    mxAlgebra(name = "expCov", expression = variableLoadings %*% t(variableLoadings)),
    mxMatrix(name  = "expMean", type = "Full", nrow = 1, ncol = nVar, values = dataMeans, free = T, labels = meansLabels),
    mxFIMLObjective(covariance = "expCov", means = "expMean", dimnames = manifests),
    mxData(theData, type = "raw")
)