Added r scripts and plots