added R scripts and plots