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