R 如何返回到符合条件的原始数据行？

我的代码如下所示：

set.seed(123)
nsim<-5
p<-2

G <- matrix(runif(p*nsim),nsim,p)

dmax<- matrix(data=NA,nrow=nsim,ncol=p)
dmin<- matrix(data=NA,nrow=nsim,ncol=p)

for(i in 1:nsim) {
  dmax[i]<- max(rdist(G[i,,drop=FALSE],G))
  dmin[i]<- min(rdist(G[i,,drop=FALSE],G[-i,]))
}

set.seed（123）
nsim请参见
？which.max

dmax[i,] <- G[which.max(rdist(G[i,,drop=FALSE],G)),]


dmax <- G[apply(rdist(G,G),1,which.max),]
dmin <- G[apply(rdist(G,G),1,which.min),]