Create PCA_test.R