R script for the project

R script for the project