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