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