Added R code and SQL to create a DB

Added R code and SQL to create a DB