founder.event: Simulation of a founder event
In KlausVigo/popgenSim: Population genetic simulations & numerical analysis

This function simulates genetic drift with a founding event at time etime.

1	founder.event(p0=0.5,Ne=1000,Nf=10,ttime=100,etime=50,show="p")

`p0`	Starting frequency for the A allele.
`Ne`	Effective population size at the start of the simulation and after the founding event.
`Nf`	Size of the founding population.
`ttime`	Total time of the simulation.
`etime`	Time for the founding event.
`show`	Two different options for plotting. `"p"` shows the frequency of the A allele through time; `"var"` shows the genetic variation in the population, calculated as p*(1-p). The default is `show="p"`.