R: Add H20 pca