refining r-code demoing simple PCA rotation