data(lipset)
results <- qmethod(lipset[[1]], nfactors = 3, rotation = "varimax")
factor.names <- c("good", "bad", "ugly")
results2 <- q.fnames(results, fnames = factor.names)
results #shows all results
Run the code above in your browser using DataLab