R에 불연속 균일 분포에 대한 기본 기능이 있습니까?

R의 대부분의 표준 분포에는 pdf / pmf, cdf / cmf, Quantile, random 편차가 있습니다 (예 : 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))

그래도 작동합니다 (이 예제는 0에서 100이 아닌 1 에서 100 사이의 값을 생성합니다 )