R code posted on blog