if (FALSE) {
if(interactive()){
## SIMPLE EXAMPLE OF A MREG ANALYSIS
data(dFactors)
eig <- dFactors$Raiche$eigenvalues
results <- nMreg(eig)
results
plotuScree(eig, main=paste(results$nFactors[1], ", ",
results$nFactors[2], " or ",
results$nFactors[3],
" factors retained by the MREG procedures",
sep=""))
}
}
Run the code above in your browser using DataLab