Roger refactored his R code for pragmatics