R/summary.haplinStrat.R

Defines functions summary.haplinStrat

summary.haplinStrat <- function(object, ...){
##
##
##
cat('List of length ', length(object), ' containing results from a stratified haplin analysis.\n', sep = '')

.summ <- lapply(object, summary)

for(i in seq(along = object)){
	cat("\n\n#### Stratum = ", names(object)[i], " ####---------\n", sep = "")
	print(.summ[[i]])
}
return(invisible(.summ))


}

Try the Haplin package in your browser

Any scripts or data that you put into this service are public.

Haplin documentation built on Sept. 11, 2024, 7:13 p.m.