Create Code4.r