Add R code and updated DB