.. или сделайте я должен дать
P.nk <- factorial(n) / factorial(n-k)
или
P.nk <- choose(n,k) * factorial(k)
Спасибо.
Я не знаю ни одной существующей функции. Ваше первое предложение не удастся с большим n. Ваша вторая идея должна работать нормально, если она написана как функция:
perm <- function(n,k){choose(n,k) * factorial(k)}
Тогда perm (500,2)
даст, например, 249500.
Я думаю, что пакет gregmisc обеспечивает эти функции.
library(gregmisc)
permutations(n=4,r=4)
Ссылка на список рассылки: [R] перестановка