powered by
sym.cfa(sym.data)
cfa.Czz
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