Akn et Ckn sur R

Bonjour,
Je cherche a crée une fonction sur R pour calculer Akn et Ckn,
sans utiliser les fonctions choose ni factorial
mais en utilisant les fonctions seq ; prod
function(k,n) (prod(seq(n-k+1,n)))

Avez vous des idées ? :?