矩阵随机选取一个元素

矩阵中选一个元素，
元素数值越大，选中的概率越大，
怎么写呢？多谢！


比如矩阵如下
> a<-matrix(1:12, nrow=3,ncol=4)> a     [,1] [,2] [,3] [,4][1,]    1    4    7   10[2,]    2    5    8   11[3,]    3    6    9   12

希望选中[3,4]的概率最大

希望语句返回的数值是元素的横纵坐标。


多谢！

简单代码如下，参考一下
loc.matrix <- function(x){
  
  rnd <- sample(x,1,prob=x)
  
  which(x==rnd,arr.ind = T)
}