R help - Oct 2003 - SIMCA algorithm implementation

Dear All
Is there a SIMCA (Soft Independent Modelling Class Analogy) implementation
on R or does anyone know if is it possible to replicate the SIMCA algorithm
using existing R functions?

Thanks
Mike White