Proj1_util. R/ edited R scripts

util file allows for deletion of repreated code throughout R scripts