powered by
Calculate intercepts and associated p-value
calc_p_apply(dat, t2, t1)
data.frame
upper intercept age
lower intercept age