Create Code6.R