committing R script for data processing