Final R scripts and files

Final R scripts and files