Create Code2.R