Example Script Recoding Variables In R