# NOT RUN {
data(ex_cfa2)
res <- sym.cfa(ex_cfa2)
class(res) <- c('sym.data.table')
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