## SIMPLE EXAMPLE OF SESCREE AND R2 ANALYSIS
data(dFactors)
eig <- dFactors$Raiche$eigenvalues
results <- nSeScree(eig)
results
plotuScree(eig, main=paste(results$nFactors[1], "or ", results$nFactors[2],
"factors retained by the sescree and R2 procedures",
sep=""))Run the code above in your browser using DataLab