Похоже, что combn реализован на R, поэтому вы можете увидеть код, набрав combn <Enter>
начинается
function (x, m, FUN = NULL, simplify = TRUE, ...)
{
stopifnot(length(m) == 1L)
if (m < 0)
....
Это не форум для копирования и вставки исходного кода, но вы можете очень легко увидеть код.