Aliases: rowTabulates colTabulates
Keywords: utilities
### ** Examples x <- matrix(1:5, nrow = 10, ncol = 5) print(x)
[,1] [,2] [,3] [,4] [,5] [1,] 1 1 1 1 1 [2,] 2 2 2 2 2 [3,] 3 3 3 3 3 [4,] 4 4 4 4 4 [5,] 5 5 5 5 5 [6,] 1 1 1 1 1 [7,] 2 2 2 2 2 [8,] 3 3 3 3 3 [9,] 4 4 4 4 4 [10,] 5 5 5 5 5
print(rowTabulates(x))
1 2 3 4 5 [1,] 5 0 0 0 0 [2,] 0 5 0 0 0 [3,] 0 0 5 0 0 [4,] 0 0 0 5 0 [5,] 0 0 0 0 5 [6,] 5 0 0 0 0 [7,] 0 5 0 0 0 [8,] 0 0 5 0 0 [9,] 0 0 0 5 0 [10,] 0 0 0 0 5
print(colTabulates(x))
1 2 3 4 5 [1,] 2 2 2 2 2 [2,] 2 2 2 2 2 [3,] 2 2 2 2 2 [4,] 2 2 2 2 2 [5,] 2 2 2 2 2
# Count only certain values print(rowTabulates(x, values = 1:3))
1 2 3 [1,] 5 0 0 [2,] 0 5 0 [3,] 0 0 5 [4,] 0 0 0 [5,] 0 0 0 [6,] 5 0 0 [7,] 0 5 0 [8,] 0 0 5 [9,] 0 0 0 [10,] 0 0 0
y <- as.raw(x) dim(y) <- dim(x) print(y)
[,1] [,2] [,3] [,4] [,5] [1,] 01 01 01 01 01 [2,] 02 02 02 02 02 [3,] 03 03 03 03 03 [4,] 04 04 04 04 04 [5,] 05 05 05 05 05 [6,] 01 01 01 01 01 [7,] 02 02 02 02 02 [8,] 03 03 03 03 03 [9,] 04 04 04 04 04 [10,] 05 05 05 05 05
print(rowTabulates(y))
0x1 0x2 0x3 0x4 0x5 [1,] 5 0 0 0 0 [2,] 0 5 0 0 0 [3,] 0 0 5 0 0 [4,] 0 0 0 5 0 [5,] 0 0 0 0 5 [6,] 5 0 0 0 0 [7,] 0 5 0 0 0 [8,] 0 0 5 0 0 [9,] 0 0 0 5 0 [10,] 0 0 0 0 5
print(colTabulates(y))
0x1 0x2 0x3 0x4 0x5 [1,] 2 2 2 2 2 [2,] 2 2 2 2 2 [3,] 2 2 2 2 2 [4,] 2 2 2 2 2 [5,] 2 2 2 2 2