wheaton.nobs <- 932
source('http://www.statpower.net/Content/312/R Stuff/AdvancedFactorFunctionsV1.11.r')
S <- as.matrix(read.csv('http://www.statpower.net/Content/312/Lecture Slides/Wheaton.csv'))
rownames(S) <- colnames(S)
out <- QuickSEM(S,932)
summary(out)
out2 <- EditSEM(out)
summary(out2)