Add pca analysis R