Grade rounding function giving me 'Logical(0)' when printing - R

Question

I\'m trying to round random grades (vector) to the nearest grade (category) with for and if loop. The idea is that the function takes the grades and puts them into a categor