R/distr.R

In pbreheny/bios4120: Practice problems and exercises for BIOS 4120

Defines functions distr

Documented in distr

distr <- function() {
  x <- runif(1)
  if (x < .33) {
    normal()
  } else if (x < .66) {
    binomial()
  } else {
    clt()
  }
}