Update IS607 Project 4 R Code.R