#Removes underscore "_" in tip labels. E.g., turns 'Genus_species', into 'Genus species'
#by Marc Cadotte
#Feb. 2010


Xunder<-function(names) {
	as.vector(sapply(names,function(x) sub("_"," ",x)))
	}