trait = data.frame(body = c(1,2,3,4,4), beak = c(1,1,1,1,2))
distance = gower(trait)
tree = tree.build(trait)
tree.quality(distance, tree)
tree = tree.build(trait, func = "bionj")
tree.quality(distance, tree)
tree = tree.build(trait, func = "upgma")
tree.quality(distance, tree)
tree = tree.build(trait, func = "mst")
tree.quality(distance, tree)
tree = tree.build(trait, func = "best")
distance1 = distance
distance1[] = 1
tree = hclust(distance1)
tree.quality(distance, tree)
Run the code above in your browser using DataLab