adding R script for getting data project