powered by
getPurity(truthLabels, inferLabels)
temp <- getPurity(c(1,1,1,2,1,5,3,4,5,3), c(2,2,2,3,1,1,3,4,2,3))
Run the code above in your browser using DataLab