## -----------------------------------------------------------------------------
## Preparing our R session
library(rigr)
data(fev)

## -----------------------------------------------------------------------------
descrip(fev)

## -----------------------------------------------------------------------------
descrip(fev$fev, fev$height)

## -----------------------------------------------------------------------------
descrip(fev$fev, fev$height, strata = fev$smoke)

## -----------------------------------------------------------------------------
greater_10 <- ifelse(fev$age > 10, 1, 0)
descrip(fev$fev, fev$height, subset = greater_10)

## -----------------------------------------------------------------------------
descrip(fev$fev, strata = fev$smoke, above = 2)