day 4 R material

seems like I don't have commit rights =o