R help - Jun 2007 - PCA + xValidation

Dear R users;
Is there any package or function that I can use to perform LOOCV with
prcomp? Basically I want to use that approach to get an idea of the
"optimal" number of PC.
Thanks for any idea
PM