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