..または私は与える必要がありますか
P.nk <- factorial(n) / factorial(n-k)
また
P.nk <- choose(n,k) * factorial(k)
ありがとうございました。
..または私は与える必要がありますか
P.nk <- factorial(n) / factorial(n-k)
また
P.nk <- choose(n,k) * factorial(k)
ありがとうございました。
既存の機能はわかりません。最初の提案はnが大きいと失敗します。2番目のアイデアは、関数として記述した場合に正常に機能するはずです。
perm <- function(n,k){choose(n,k) * factorial(k)}
次にperm(500,2)
、たとえば249500を与えます。
nsamp(n,k,ordered=T)
'prob'パッケージでチェックアウト
パッケージgtools
# R version 3.5.3
install.packages("gtools")
library(gtools)
base::nrow(gtools::permutations(500,2))
結果:
[1] 249500
また、 combinations-and-permutations-in-r、permutation_with_replacement.Rも参照してください。
別のパッケージprob
:
base::ncol(prob::permsn(500,2))
[1] 249500