data(example7)
res<-sym.histogram.pca(example7)
sym.scatterplot(sym.var(res,1),sym.var(res,2),labels=TRUE,col='red',main='Histogram PCA')
sym.scatterplot3d(sym.var(res,1),sym.var(res,2),sym.var(res,3),color='blue',
main='Histogram PCA')
Run the code above in your browser using DataLab