library(hdrm)
# Sorry, I haven't figured out a good way to make the code from this lecture
# reproducible yet. The simulations take a long time and  I used the HPC.

cs <- readRDS('~/book/chapters/4/fig/enet-sim-a.rds')
bd <- readRDS('~/book/chapters/4/fig/enet-sim-b.rds')
Fig4.1(cs, bd)

res <- readRDS('~/book/chapters/4/fig/mnet-sim-ind.rds')
Fig4.2(res)

res <- readRDS('~/book/chapters/4/fig/mnet-sim-cor.rds')
Fig4.3(res)