Rename Code4.r to Code4.R