Added R scripts and plots