Temp Data and R Scripts