在学因子分析
不懂class(oblique)[2] =="fa"这一段是什么意思
求带路
fsm<-function(oblique){
if(class(oblique)[2] =="fa" & is.null(obliquePhi))