Create pcafd.R