# Generate some random data as an example
realClusters <- sample(1:5,100,replace = TRUE)
predictedClusters <- sample(1:6, 100, replace = TRUE)
# Calculate the FMeasure
Purity(realClusters,predictedClusters)
Run the code above in your browser using DataLab