Create parallelPCA.R