beginning Rscript for correlation batch