R script

R script for project