Shorten pca demo/comment out R timing