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