r - 是否有一个R函数来获取n个对象的排列数目取k P(n，k)？

Question

..还是我必须给

P.nk <- factorial(n) / factorial(n-k)

或者

P.nk <- choose(n,k) * factorial(k)

谢谢你。

Answer 1

我不知道任何现有功能。您的第一个建议将因n大而失败。当编写为函数时，您的第二个想法应该可以正常工作:

perm <- function(n,k){choose(n,k) * factorial(k)}

然后，perm(500,2)将给出249500。