apply 함수는 배열 입력과 행렬 출력도 지원한다.
> mat2 <- matrix(1:16, nrow = 4) > mat2 [,1] [,2] [,3] [,4] [1,] 1 5 9 13 [2,] 2 6 10 14 [3,] 3 7 11 15 [4,] 4 8 12 16
다음 코드는 각 열의 최댓값, 최솟값을 보여 주는 행렬을 만든다.
> apply(mat2, 2, function(col) c(min = min(col), max = max(col)))
[,1] [,2] [,3] [,4]
min 1 5 9 13
max 4 8 12 16
그리고 다음 코드는 각 행의 최댓값, 최솟값을 보여 주는 행렬을 만든다.
> apply(mat2, 1, function(col) c(min = min(col), max = max(col)))
[,1] [,2] [,3] [,4]
min 1 2 3 4
max 13 14 15 16