Create transformPhylo.sim.R