gre.gpa <- sim.structural()
print(gre.gpa,2) #the raw correlation matrix
round(correct.cor(gre.gpa$model,gre.gpa$reliability),2) #correct for attenuation to see structure
congeneric <- sim.structural(1,c(.9,.8,.7,.6)) # a congeneric model
congeneric
Run the code above in your browser using DataLab