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