Create func_pca.R