data(lipset)
results <- qmethod(lipset, nfactors=3, nstat=33,
nqsorts=9, rotation="varimax")
sed <- as.data.frame(results[[7]][[3]])
zsc <- results[[5]]
qdc(lipset, nfactors=3, zsc=zsc, sed=sed)
Run the code above in your browser using DataLab