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