modified:   recode.r