Closed sarahertog closed 3 years ago
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)]
extrapFrom <- min(max(a1), 110)
Will push this change once local tests pass on my machine, no prob, thanks
Thank you!
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)