edit pca ts r study