# NOT RUN {
yy <- rLambertW(n = 1000, theta = list(delta = c(0.1), beta = c(2, 1)),
distname = "normal")
mod.igmm <- IGMM(yy, type = "h")
boot.est <- bootstrap(mod.igmm, R = 100)
# use summary and plot from 'boot' pkg
plot(boot.est, 3)
summary(boot.est)
# }
Run the code above in your browser using DataLab