Rの離散均一分布のデフォルト関数はありますか？

Rのほとんどの標準分布には、pdf / pmf、cdf / cmf、変位値、ランダム偏差（dnorm、pnorm、qnorm、rnormなど）のコマンドファミリがあります。

いくつかの標準コマンドを使用して離散均一分布のこれらの関数を再現するのは簡単ですが、Rの離散均一分布をモデル化するための組み込み関数の好ましい組み込みファミリは既にありますか？

nicoが書いたように、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) 

CDF：

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

以下は、mbqの投稿から適応した、範囲[min、max]の離散均一分布のコードです。

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タスクビュー：確率分布のページ言います：

離散的な均一分布は、基本関数を使用して簡単に取得できます。

私はこれの行に何かするはずです：

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

編集

csgillespieが指摘したように、これは正しくありません...

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

（実施例間の値を生成することに注意しても動作する1から100ではなく0と100）