dsFull <- Links79PairExpanded #Start with the built-in data.frame in NlsyLinks
oName_1 <- "MathStandardized_1" #Stands for Manifest1
oName_2 <- "MathStandardized_2" #Stands for Manifest2
dsGroupSummary <- RGroupSummary(dsFull, oName_1, oName_2)
dsClean <- CleanSemAceDataset(dsDirty=dsFull, dsGroupSummary, oName_1, oName_2)
ace <- AceLavaanGroup(dsClean)
ace
#Should produce:
# [1] "Results of ACE estimation: [show]"
# ASquared CSquared ESquared CaseCount
# 0.6701032 0.1167060 0.2131907 8292.0000000
library(lavaan) #Load the package to access methods of the lavaan class.
GetDetails(ace)
#Exmaine fit stats like Chi-Squared, RMSEA, CFI, etc.
fitMeasures(GetDetails(ace)) #The function 'fitMeasures' is defined in the lavaan package.
#Examine low-level details like each group's individual parameter estimates and standard errors.
summary(GetDetails(ace))
#Extract low-level details. This may be useful when programming simulations.
inspect(GetDetails(ace), what="converged") #The lavaan package defines 'inspect'.
inspect(GetDetails(ace), what="coef")
Run the code above in your browser using DataLab