Create pcaInR.R