Dice dissimilarity between binary vectors.
DiceDissimilarity[x, y]
DiceDissimilarity[{1, 0, 1, 1, 0}, {1, 1, 0, 1, 1}]
→ 3/7DiceDissimilarity[{True, False, True}, {True, True, False}]
→ 1/2FindClusters[{{0, 1}, {1, 1}, {0, 0}, {1, 0}}, DistanceFunction -> DiceDissimilarity]
→ {{{1, 0}}, {{0, 0}}, {{1, 1}}, {{0, 1}}}