Changed fast.prcomp for prcomp