Existem funções padrão para distribuições uniformes discretas em R?

A maioria das distribuições padrão em R tem uma família de comandos - pdf / pmf, cdf / cmf, quantil, desvios aleatórios (por exemplo: dnorm, pnorm, qnorm, rnorm).

Sei que é fácil o suficiente usar alguns comandos padrão para reproduzir essas funções para distribuições uniformes discretas, mas já existe uma família interna de funções preferida para modelar distribuições uniformes discretas em R das quais não tenho conhecimento?

Como nico escreveu, eles não são implementados em R. Supondo que trabalhemos em 1..k, essas funções devem ser parecidas com:

Para geração aleatória:

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) 

CDF:

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

Aqui está o código para a distribuição uniforme e discreta no intervalo [min, max], adaptado do post do 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)

A página Exibir Tarefa CRAN: Distribuições de Probabilidades diz:

A distribuição uniforme discreta pode ser facilmente obtida com as funções básicas.

Eu acho que algo nas linhas disso deve fazer:

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

EDITAR

Como csgillespie apontou, isso não está correto ...

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

embora funcione (observe que o exemplo irá gerar valores entre 1 e 100, não 0 e 100)