Create IS607 Assignment 4.R