run recode in r dir