Чи існують функції за замовчуванням для дискретних рівномірних розподілів у R?

Більшість стандартних розподілів у R мають сімейство команд - pdf / pmf, cdf / cmf, quantile, випадкові відхилення (наприклад, 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:

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

EDIT

Як зазначав csgillespie, це невірно ...

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

буде працювати, хоча (зауважте, що приклад буде генерувати значення між 1 і 100, а не 0 і 100)