Ну, вы всегда можете укоротить его примерно так:
if ($r && $r->num_rows)
list($blarg) = $r->fetch_row();
Но это может быть так хорошо, как вы собираетесь получить.
Вы можете сделать это, используя пользовательскую функцию и sapply
grading <- function(x)
{
grades <- cut(x,
breaks=c(0,seq(60,100,by=10)),
labels=c("F","D","C","B","A"))
return(grades)
}
## your list of scores #####
score<- c(50,40,70,80,90)
##sapply to find the grades #######
sapply(score,grading)