# NOT RUN {
est1 <- summary(hsam[[1]], FALSE)
est2 <- summary(hsam[[1]], FALSE, 1, 100)
est3 <- summary_one(hsam[[1]], 1, 100, c(.025, .5, .975), verbose = TRUE)
est4 <- summary_one(hsam[[1]], 1, 100, c(.025, .5, .975), verbose = F)
est5 <- summary_many(hsam, 1, 100, c(.025, .5, .975), FALSE)
est6 <- summary_many(hsam, 1, 100, c(.025, .5, .975), TRUE)
est7 <- summary(hsam)
est8 <- summary(hsam, verbose = TRUE)
est9 <- summary(hsam, verbose = FALSE)
hest1 <- summary_hyper(hsam, 1, 100, F, F, c(.025, .5, .975), 2, F)
hest2 <- summary_hyper(hsam, 1, 100, F, F, c(.05, .5, .9), 2, F)
hest3 <- summary(hsam, TRUE)
# }
Run the code above in your browser using DataLab