또 다른 방법은 ifelse()를 사용하는 것이다.
> spread3 <- function(x) { + ifelse(x < -5, -5, ifelse(x > 5, 5, x)) + } > spread3(seq(-8, 8)) [1] -5 -5 -5 -5 -4 -3 -2 -1 0 1 2 3 4 5 5 5 5
앞의 두 함수 spread2()와 spread3()은 결과가 같다.
▲ 그림 5-1 spread2( )와 spread3( ) 조각 함수의 입력에 따른 결과 그래프