Adding R code and a sample DB