Instead of using the princomp function, write your own principal component analysis algorithm. With test data