This is probably what you ask for
pcaPP: Robust PCA by Projection Pursuit
http://cran.r-project.org/web/packages/pcaPP/index.html

windows version:
reference:

持续关注~

多谢鲁大师关注啊

thank you very much.but the package of pcaPP only provides the first step of Robust Principle Component Regression.
what I concerned most is the second step of Robust Principle Component Regression that fitting the robust regression model with the principle component scores by robust LTS method.

The package "robustbase" has a function "ltsReg" for LTS regression.

Here it is the link to the package:
http://cran.r-project.org/web/packages/robustbase/index.html