sim.history function

Simulate character history or a discrete character at the tips of the tree under some model