For the R deme, the population size remained at 5563 until 6893.7 generations ago, at which point a exponential reduction took place until 6687.0432 generations for size 3959. Afterward, the population saw an exponential decrease to 1845 by 2781.9267. From 2781.9267 generations ago to today, there's been a linear increase from 1845 to 4233.
time_units: generations
demes:
  - name: R
    start_time: .inf
    epochs:
      - start_size: 5563
        end_time: 6893.7
      - start_size: 5563
        end_size: 3959
        end_time: 6687.0432
        size_function: exponential
      - start_size: 3959
        end_time: 2781.9267
        end_size: 1845
        size_function: exponential
      - end_time: 0
        start_size: 1845
        end_size: 4233
        size_function: linear