Update PCA.R