PCA in R - Step 3