PCA in R - Step 2