Final R files and plots added