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