Create Code4.R