R/uniform.R

In simdat.base: Simulating data in R

UN <- function() {
  fam <- list(
    family=c("U","Uniform"),
    parameters=list(),
    nopar = 0,
    type="Continuous")
  class(fam) <- c("gamlss.family","family")
  return(fam)
}

rUN <- function(n,min,max) {
    r <- runif(n=n,min=min,max=max)
}