pitakakariki

#calculate Cummings et al (2008) _gsi_ - a meaure of the exlusivity of a 
#predefiend group of leaves in a phylogenetic tree


#example
#
# tr <- rtree(10)
# grp <- paste("t", 1:5, sep="")
# gsi(tr, grp)