isTRUE(all.equal(normalizedMutualInformation(
new("Partition", c(0, 0, 0, 1, 1)),
new("Partition", c(0, 0, 1, 1, 1)), "min"),
normalizedMutualInformation(
new("Partition", c(0, 0, 0, 1, 1)),
new("Partition", c(0, 0, 1, 1, 1)), "max")
))
Run the code above in your browser using DataLab