R scripts and plots added