add R

scripts for 'kpca-spca-spls-nmf-ssvd'