add R script for working with Data