Существует ли функция 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.

Answer 2

Я думаю, что пакет gregmisc обеспечивает эти функции.

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

Ссылка на список рассылки: [R] перестановка

Answer 3

Проверьте nsamp(n,k,ordered=T) в пакете 'prob'

Answer 4

пакет gtools

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

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

результат:

[1] 249500

также см. комбинации и перестановки в r , permutation_with_replacement.R

другой пакет prob:

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

[1] 249500