prcomp and summary.prcomp