update pcr() with princomp()