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