hlapp

library(nlme);
library(ape);

## At the END of this script, I have appended the necessary functions 
##	and data. You can skip to the block of #### symbols and 
##	load everything into your workspace before using this script 

#	make dataframe
indata <- data.frame(x=xdata, y=ydata, row.names=tree$tip.label);