Principle Components Analysis Using R