Create pca3d.r