Weighted PCA Model in R by michalskop