Berechnung Summe aller gegen alle Spalten mit passender Zeilenanzahl

Question

Ich habe eine df mit mehreren Spalten Werte 0 oder 1 mit etwas, wie:

a b c d e 
1 0 0 0 0 
0 1 0 1 0 
0 1 0 1 0 
1 0 1 0 1 

Ich mag eine 5 x 5 Matrix zeigt Gesamtzählung erstellen wenn Spalten 1 in derselben Zeile haben. Ich möchte nur 1en prüfen und im Fall der Diagonale wäre es automatisch Gesamt Zeile in dieser Spalte mit 1.er Ausgabe etwas wie reflektieren:

a b c d e 
a 2 0 1 0 1 
b 0 2 0 2 0 
c 1 0 1 0 1 
d 0 2 0 2 0 
e 1 0 1 0 1 

Dank.

Sudhir

Answer 1

In Matrix konvertieren und Quer Produkt:

m <- as.matrix(d) 
crossprod(m,m)