homework 1

updated r code and images