se <- c(1.57, 3.15, 0.982)
b <- c(3.78, 8.21, 2.99)
adj.se(.05, 10.26, 8.37, 114, se, b)
# Should return:
# Estimate adj SE t df p LL UL
# [1,] 3.78 1.738243 2.174609 114 0.031725582 0.3365531 7.223447
# [2,] 8.21 3.487559 2.354082 114 0.020279958 1.3011734 15.118827
# [3,] 2.99 1.087233 2.750102 114 0.006930554 0.8362007 5.143799
Run the code above in your browser using DataLab