# Timss 2007 Student Questionnaire Example for 5 and 8 loadings
data(timss2007)
timss_cor <- cor(timss2007,method="spearman",use="na.or.complete")
dandelion(factanal(covmat=timss_cor,factors=5)$loadings,bound=0)
dandelion(factanal(covmat=timss_cor,factors=8)$loadings,bound=0)
Run the code above in your browser using DataLab