Refined R code