Create code2.R