9

..または私は与える必要がありますか

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

また

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

ありがとうございました。

4

4 に答える 4

11

既存の機能はわかりません。最初の提案はnが大きいと失敗します。2番目のアイデアは、関数として記述した場合に正常に機能するはずです。

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

次にperm(500,2)、たとえば249500を与えます。

于 2010-05-20T09:04:48.510 に答える
3

gregmiscパッケージはこれらの機能を提供すると思います。

library(gregmisc)
permutations(n=4,r=4)

メーリングリストリファレンス: [R]順列

于 2010-05-20T09:09:58.043 に答える
2

nsamp(n,k,ordered=T)'prob'パッケージでチェックアウト

于 2010-05-20T09:20:31.170 に答える
0

パッケージgtools

# R version 3.5.3
install.packages("gtools")
library(gtools)

base::nrow(gtools::permutations(500,2))

結果:

[1] 249500

また、 combinations-and-permutations-in-rpermutation_with_replacement.Rも参照してください。

別のパッケージprob

base::ncol(prob::permsn(500,2))

[1] 249500

于 2019-06-04T03:06:38.410 に答える