Apakah ada fungsi default untuk distribusi seragam diskrit di R?

Sebagian besar distribusi standar dalam R memiliki keluarga perintah - pdf / pmf, cdf / cmf, quantile, penyimpangan acak (misalnya - dnorm, pnorm, qnorm, rnorm).

Saya tahu itu cukup mudah untuk menggunakan beberapa perintah standar untuk mereproduksi fungsi-fungsi ini untuk distribusi seragam diskrit, tetapi apakah sudah ada keluarga fungsi bawaan untuk memodelkan distribusi seragam diskrit di R yang tidak saya sadari?

Seperti yang ditulis nico, mereka tidak diimplementasikan dalam R. Dengan asumsi kita bekerja di 1..k, fungsi-fungsi tersebut akan terlihat seperti:

Untuk generasi acak:

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))

Berikut ini adalah kode untuk distribusi seragam diskrit di kisaran [min, maks], diadaptasi dari pos 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)

Tampilan Tugas CRAN: Halaman Distribusi Probabilitas mengatakan:

Distribusi seragam diskrit dapat dengan mudah diperoleh dengan fungsi dasar.

Saya kira sesuatu pada baris ini harus dilakukan:

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

EDIT

Seperti yang ditunjukkan csgillespie, ini tidak benar ...

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

akan berfungsi (perhatikan bahwa contoh ini akan menghasilkan nilai antara 1 dan 100, bukan 0 dan 100)