Create transformPhylo.R