Create recoding.r