R script comments updated
added PCA script