A set of R scripts to simulate phylogeography  using Continuous time Markov Chains