Sokal-Sneath dissimilarity between binary vectors.
SokalSneathDissimilarity[u, v]
SokalSneathDissimilarity[{1, 0, 1, 1, 0}, {1, 1, 0, 1, 1}]
→ 3/4SokalSneathDissimilarity[{True, False, True}, {True, True, False}]
→ 4/5FindClusters[{{0, 1}, {1, 1}, {0, 0}, {1, 0}}, DistanceFunction -> SokalSneathDissimilarity]
→ {{{1, 0}}, {{0, 0}}, {{1, 1}}, {{0, 1}}}