How to reproduce a table of student? [closed]

Something like x <- 1:20; names(x) <-x y <- c(0.05, 0.025, 0.01, 0.005, 0.001, 0.0005); names(y) <- y outer(x, y,function(x, y) {abs(qt(y, df=x))}) #> 0.05 0.025 0.01 0.005 0.001 5e-04 #> 1 6.313752 12.706205 31.820516 63.656741 318.308839 636.619249 #> 2 2.919986 4.302653 6.964557 9.924843 22.327125 31.599055 #> 3 2.353363 3.182446 4.540703 5.840909 10.214532 12.923979 #> … Read more