initial work

uploading r file for work completed thus far