if (FALSE) {
if(interactive()){
## SIMPLE EXAMPLE OF A CNG ANALYSIS
data(dFactors)
eig <- dFactors$Raiche$eigenvalues
results <- nCng(eig, details=TRUE)
results
plotuScree(eig, main=paste(results$nFactors,
" factors retained by the CNG procedure",
sep=""))
}
}
Run the code above in your browser using DataLab