### R code from vignette source 'extract.Rnw'