Nothing
"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]))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.