assignment1 r scripts and plots