Port of the arandi function from the mcclust package which is no longer maintained.
arandi(cl1, cl2, adjust = TRUE)