I will try to explain my goal the best way possible.
Let\'s say I have two vectors:
Teffs <- c(6000, 6100, 6200, ..., 7500)
Ls <- c(40, 41, 42, 43, 44