R/quiz3.R

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

Defines functions quiz3

Documented in quiz3

quiz3 <- function() {
  x <- runif(1)
  if (x < .33) {
    cat1()
  } else if (x < .67) {
    cont1()
  } else {
    distr()
  }
}