R/subsets.R

`subsets` <-
function (n, r, v = 1:n)
if (r <= 0) vector(mode(v), 0) else if (r >= n) v[1:n] else {
    rbind(cbind(v[1], Recall(n - 1, r - 1, v[-1])), Recall(n -
        1, r, v[-1]))
}

Try the CombMSC package in your browser

Any scripts or data that you put into this service are public.

CombMSC documentation built on May 2, 2019, 2:32 p.m.