Создание матрицы совпадений из наблюдений с фиктивным кодом

Существует ли простой подход к преобразованию фрейма данных с манекенами о наличии аспекта в матрицу совпадения, содержащую количество двух одновременно встречающихся аспектов?

переходя от этого

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

к этому

   X1 X2 X3 X4
X1  0  0  1  0
X2  0  0  2  1
X3  1  2  0  1
X4  0  1  1  0