modified:   factorAnalysisBattery.R