Stwórz macierz współwystępowania z obserwacji kodowanych sztucznie
Czy istnieje proste podejście do konwersji ramki danych z manekinami na to, czy występuje jakiś aspekt, do macierzy współwystępowania zawierającej liczby dwóch współwystępujących aspektów?
Na przykład. odchodząc od tego
X <- data.frame(rbind(c(1,0,1,0), c(0,1,1,0), c(0,1,1,1), c(0,0,1,0)))
X
X1 X2 X3 X4
1 1 0 1 0
2 0 1 1 0
3 0 1 1 1
4 0 0 1 0
do tego
X1 X2 X3 X4
X1 0 0 1 0
X2 0 0 2 1
X3 1 2 0 1
X4 0 1 1 0