Bra*_*ani 8 combinations r permutation
..或者我必须付出
P.nk <- factorial(n) / factorial(n-k)
Run Code Online (Sandbox Code Playgroud)
要么
P.nk <- choose(n,k) * factorial(k)
Run Code Online (Sandbox Code Playgroud)
谢谢.
Rob*_*man 11
我不知道任何现有的功能.你的第一个建议将失败,大n.作为函数编写时,您的第二个想法应该可以正常工作:
perm <- function(n,k){choose(n,k) * factorial(k)}
Run Code Online (Sandbox Code Playgroud)
然后perm(500,2)以249500为例.