R Script for Project