的R - 基於矢量

Question

測試矩陣值I具有矩陣

blah <- structure(c(10L, 7L, 5L, 3L, 8L, 10L, 3L, 9L, 3L, 3L, 4L, 8L, 7L, 4L, 8L, 5L, 2L, 1L, 9L, 7L, 6L, 7L, 9L, 3L, 3L), .Dim = c(5L, 5L)) 

> blah 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 10 10 4 5 6 
[2,] 7 3 8 2 7 
[3,] 5 9 7 1 9 
[4,] 3 3 4 9 3 
[5,] 8 3 8 7 3 

我有一組對應於各列的最大值載體。

​​

我想返回基於每列中的最大值邏輯矢量

 [,1] [,2] [,3] [,4] [,5] 
[1,] T T F F F 
[2,] F F T F F 
[3,] F F F F T 
[4,] F F F T F 
[5,] F F T F F 

我知道我可以實現在列做這個循環，而是有一種優雅的R型方法來完成這個？

Answer 1

apply(blah,2,function(x) {x == max(x)}) 

這只是打我。這很簡單。不敢相信我以前沒有想到這一點。