Create pca.R