整数の組み合わせを効率的に選択
0で満たされた5x5の行列があるとしましょう。 myMatrix <- matrix(rep(0, 25), ncol = 5) それでは、1から5までの整数のトリプレットを選びましょう。 triplet <- c(1,2,3) このトリプレットのすべての組み合わせについて、次の関数を使用して、マトリックスに1を追加します。 addCombinationsToMatrix <- function(.matrix, .triplet){ indexesToChange <- as.matrix(expand.grid(.triplet, .triplet)) .matrix[indexesToChange] <- .matrix[indexesToChange] + 1 .matrix } 関数を使用して、 myMatrix [,1] [,2] [,3] [,4] [,5] [1,] 0 0 0 0 0 [2,] 0 0 0 0 0 [3,] 0 0 …