Существуют ли функции по умолчанию для дискретных равномерных распределений в R?

Большинство стандартных дистрибутивов в R имеют семейство команд - pdf / pmf, cdf / cmf, квантиль, случайные отклонения (например, dnorm, pnorm, qnorm, rnorm).

Я знаю, что достаточно просто использовать некоторые стандартные команды для воспроизведения этих функций для дискретных равномерных распределений, но есть ли уже предпочтительное встроенное семейство функций для моделирования дискретных равномерных распределений в R, о которых я не знаю?

Как писал Нико, они не реализованы в R. Предполагая, что мы работаем в 1..k, эти функции должны выглядеть следующим образом:

Для случайного поколения:

rdu<-function(n,k) sample(1:k,n,replace=T)

PDF:

ddu<-function(x,k) ifelse(x>=1 & x<=k & round(x)==x,1/k,0) 

КОР:

pdu<-function(x,k) ifelse(x<1,0,ifelse(x<=k,floor(x)/k,1))

Вот код для дискретного равномерного распределения в диапазоне [min, max], адаптированный из поста mbq:

dunifdisc<-function(x, min=0, max=1) ifelse(x>=min & x<=max & round(x)==x, 1/(max-min+1), 0)
punifdisc<-function(q, min=0, max=1) ifelse(q<min, 0, ifelse(q>=max, 1, (floor(q)-min+1)/(max-min+1)))
qunifdisc<-function(p, min=0, max=1) floor(p*(max-min+1))
runifdisc<-function(n, min=0, max=1) sample(min:max, n, replace=T)

На странице CRAN Task View: Распределение вероятностей написано:

Дискретное равномерное распределение легко получить с помощью основных функций.

Я думаю, что-то вроде этого должно сделать:

a <- round(runif(1000, min=0, max=100))

РЕДАКТИРОВАТЬ

Как указал csgillespie, это не правильно ...

a <- ceiling(runif(1000, min=0, max=100))

будет работать, хотя (обратите внимание, что пример будет генерировать значения от 1 до 100, а не от 0 до 100)