Create Code3.R