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