My blog R code.