Jak zmienić elementy w jednej macierzy indeksowanej w innej macierzy? - r, pętle, macierz

Mam dwie macierze A i B. Macierz B jest macierzą dwukolumnową, a każdy wiersz zawiera jeden indeks elementu w macierzy A. Chcę zmienić te elementy w macierzy A, które są indeksowane przez każdy wiersz w macierzy B, na 0.

Czy istnieje sposób na uniknięcie użycia pokazanej poniżej pętli?

> 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

Odpowiedzi:

Robi się tak

A[B] <- 0;