私は2つの行列AとBを持っています。 行列Bは2列の行列です。各行には行列Aの要素のインデックスが1つ含まれています。行列Bの各行によってインデックス付けされた行列Aの要素を0に変更します。
下に示すループを避ける方法はありますか?
> A <- matrix(1:12, 3, 4)
> B <- matrix(c(1, 2, 2, 2, 3, 4), byrow = TRUE, ncol = 2)
> A
[,1] [,2] [,3] [,4]
[1,] 1 4 7 10
[2,] 2 5 8 11
[3,] 3 6 9 12
> B
[,1] [,2]
[1,] 1 2
[2,] 2 2
[3,] 3 4
> for (i in 1:nrow(B)) {
+ A[B[i, 1], B[i, 2]] <- 0
+ }
> A
[,1] [,2] [,3] [,4]
[1,] 1 0 7 10
[2,] 2 0 8 11
[3,] 3 6 9 0
回答:
回答№1の場合は3それはこのようにしている
A[B] <- 0;