pca analysis in R for GH