평균에 가장 가까운 값을 갖는 행렬의 행과 열을 어떻게 찾을 수 있습니까? R

Question

에서 I는이 같은 큰 매트릭스를 가지고

NCols=100 
NRows=100 

myMat<-matrix(runif(NCols*NRows), ncol=NCols) 

I는 행 및 열은 평균 또는 mean(myMat) 환산 행렬의 모든 값의 중간 값에 가장 가까운 값을 갖는 찾는데 관심.

어떻게하면 R에서이 작업을 수행 할 수 있습니까?

Answer 1

이 시도 :

이

set.seed(45) # just for reproducibility 
NCols <- 100 
NRows <- 100 
myMat <- matrix(runif(NCols*NRows), ncol=NCols) 

mat_minus_mean <- abs(myMat - mean(myMat)) 
idx <- which(mat_minus_mean == min(mat_minus_mean), arr.ind = TRUE) 
#  row col 
# [1,] 5 33 

> myMat[idx] 
# [1] 0.5# mean(myMat) is 0.5012474