R: changed filter with prediction in PCA