### simulated data
parent.clustering <- c(rep(1, 5), rep(2, 10), rep(3, 10))
# replace the branch '2' by children '4' and '5'
children.clustering<-c(rep(1,5),rep(4,3),rep(5,7),rep(3,10))
flat.clustering <- c(rep(1, 6), rep(2, 6), rep(3, 4), rep(4, 9))
score.it(table(parent.clustering, flat.clustering),
table(children.clustering, flat.clustering))
## better score for the parent.tree
Run the code above in your browser using DataLab