Small change requested in lt_abridged2single()

[sarahertog]

https://github.com/timriffe/DemoTools/blob/0c6090bc281401a1c9d0a61d08602bb932c8f060/R/lt_regroup_age.R#L221

Use a1 instead of Age to define extrapFit and extrapFrom, like this:

extrapFit <- a1[a1 >= min(extrapFit, (max(a1)-20)) & a1 <= max(a1)]

always refit from 110 even if extrapFrom > 110

extrapFrom <- min(max(a1), 110)

[timriffe]

Will push this change once local tests pass on my machine, no prob, thanks

[sarahertog]

Thank you!