# NOT RUN {
est1 <- summary(hsam[[1]], FALSE)
est2 <- summary(hsam[[1]], FALSE, 1, 100)
est3 <- summary(hsam)
est4 <- summary(hsam, verbose = TRUE)
est5 <- summary(hsam, verbose = FALSE)
hest1 <- summary(hsam, TRUE)
# }
Run the code above in your browser using DataLab