Create pca.r