Create Code6.r