powered by
data(ex_cfa2)
data(ex_cfa2) res<-sym.cfa(ex_cfa2) cfa.scatterplot(sym.var(res,1),sym.var(res,2),num.gr1=ex_cfa2$N,labels=TRUE,col='red', main='CFA')
Run the code above in your browser using DataLab