Update IS 607 Project 4 R Code.R