More R demos for PCA and GBM