R/quiz4.R

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

Defines functions quiz4

Documented in quiz4

quiz4 <- function()
  {
    x <- runif(1)
    if (x < .5) cat2()
    else cont2()
  }