code:
  
m <- matrix(c(8,1,2,3,4,8),2,3)

apply(m,c(1,2),function(x){
  # i <- rownum(x)  ？？
  # j <- colnum(x)   ？？
  ......
})

Problem:
如何得到x在矩阵m中对应的下标？谢谢！