R/print.haplin.R

In Haplin: Analyzing Case-Parent Triad and/or Case-Control Data with SNP Haplotypes

print.haplin <- function(x,...){
cat('This is the result of a haplin run.\n')
cat("Number of data lines used: ", round(x$result$ntri), " | Number of haplotypes used: ", round(x$result$nall), "\n", sep = "")
#invisible(print.tri.glm(x$result,...))
cat('Please use the "summary", "plot", "haptable" or "output" functions to obtain\n more details.\n')
}