check_sign() 함수에도 동일한 원칙이 적용된다. 다음과 같이 check_sign() 함수를 더 단순화할 수 있다.
> check_sign <- function(x) { + if (x > 0) 1 else if (x < 0) -1 else 0 + }
명시적으로 if 표현식의 값을 얻는 방법을 활용하면 학생 이름과 점수를 고려하여 성적을 구하는 함수도 구현할 수 있다.
> say_grade <- function(name, score) { + grade <- if (score >= 90) "A" + else if (score >= 80) "B" + else if (score >= 70) "C" + else if (score >= 60) "D" + else "F" + cat("The grade of", name, "is", grade) + } > say_grade("Betty", 86) The grade of Betty is B