Added method to call PCA from within R