Create likTraitPhylo.R