Commit R scripts and png outputs for assignment 1