Create Code1.R