轉換熔融矩陣的矩陣中的R

Question

我有一個熔融的矩陣A：

A = 
1 1 1 
2 1 0 
2 2 1 
3 1 0 
3 2 0 
3 3 1 

我想將其轉換爲乙矩陣：

B: 
1 0 0 
0 1 0 
0 0 1 

該矩陣是對稱的。

我們可以使用「重塑」包容易熔化的基質。我們怎樣才能做到這一點？

這是很容易使用for循環，但實在是太慢了。

B <- matrix(0,nrow=3,ncol=3) 

for(i in 1:nrow(A)) 
{ 
    B[A[i,1],A[i,2]] = A[i,3] 
} 

Answer 1

B <- matrix(0,nrow=3,ncol=3) 
B[ A[, 1:2] ] <- A[,3] 

我們不需要任何steenkin'循環這裏。