Add get_grade function

- Add 07_get_grade.R
- Update get_rcards to include get_grade