first pass at hw1 plots

adding .r script