而不是使用循环在 R 中找到最少两个骰子，例如：

Min <- matrix(0, nrow=6, ncol=6)
d1 <- 1:6
d2 <- 1:6
for(k in 1:6){
  for(j in 1:6){
    Min[k,j] <- min( c(d1[k], d2[j]) )
  }
}

有没有更简单的方法或更短的代码来获得以下结果？

     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    1    1    1
[2,]    1    2    2    2    2    2
[3,]    1    2    3    3    3    3
[4,]    1    2    3    4    4    4
[5,]    1    2    3    4    5    5
[6,]    1    2    3    4    5    6

回答

outer(d1,d2,pmin)
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    1    1    1
[2,]    1    2    2    2    2    2
[3,]    1    2    3    3    3    3
[4,]    1    2    3    4    4    4
[5,]    1    2    3    4    5    5
[6,]    1    2    3    4    5    6