perform PCA of the logratio transformed data:
pc <- prcomp(cMajor)