Port of the vi.dist function from the mcclust package which is no longer maintained.
vi.dist(cl1, cl2, parts = FALSE, base = 2)