Including PCA in CleanData.R