using ndim = ncol(.pca) if too many and prcomp(, scale = TRUE, center =TRUE)