perform the principal component analysis:
pc.comp <- PCA(Major.comp)