### R code from vignette source 'vignettes/ggbio/inst/doc/p5_case.Rnw'