week 7 R assignment - RSQLite