data(ex_cfa1)
res<-interscal(ex_cfa1)
sym.scatterplot(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
labels=TRUE,col='red',main='Interscal CFA Data')
sym.scatterplot3d(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
sym.var(res$Sym.Components,3),color='blue',
labels=TRUE,main='Interscal CFA Data')
sym.scatterplot.ggplot(sym.var(res$Sym.Components,1),sym.var(res$Sym.Components,2),
labels=TRUE)
Run the code above in your browser using DataLab