# NOT RUN {
boot1 <- bootNet(ggmDat, 'M')
summary(boot1)
boot2 <- bootNet(gvarDat, 'M', lags = 1)
mod1 <- varSelect(gvarDat, 'M', lags = 1)
boot3 <- bootNet(gvarDat, 'M', lags = 1, type = mod1, caseDrop = TRUE)
summary(boot3)
# }
Run the code above in your browser using DataLab