R grading