R script for project