added r code and plot for locus length vs time