Как найти количество узлов, подключенных к двум узлам в графе?

Question

У меня есть прямой граф со следующей матрицей смежности

as.matrix(read.table(header=T, text= 
" A B C D E F 
A 0 1 0 0 0 1 
B 0 0 0 0 0 1 
C 0 1 0 0 1 0 
D 0 1 0 0 1 1 
E 0 0 0 0 0 1 
F 0 0 0 0 0 0")) 

Я хочу сделать некоторые матрицы манипуляции, которые могут дать мне число уникальных узлов, которые следуют два узла. Например, в предыдущей матрице результат должен быть

A B C D E F 
A|0 3 0 0 2 4| 
B|3 3 3 3 3 5| 
C|0 3 0 0 2 4| 
D|0 3 0 0 2 4| 
E|2 3 2 2 2 5| 
F|4 5 4 4 5 4| 

Я использую R для своей кодировки. Это было бы здорово, если бы кто-то может помочь в этом

Answer 1

я нашел ответ, я разделяю его, как это может быть полезно:

D<-colSums(A) 
B<-matrix(D,ncol=length(D),nrow=length(D)) 
Result<-B+t(B)-t(A)%*%A