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