R/print_title.R

In Eagle: Multiple Locus Association Mapping on a Genome-Wide Scale

.print_title <- function(){
    ## internal function: use only in AM function
    ## title
    message("\n\n\n")
message("                    Multiple-Locus Association Mapping")
message("                            Version 2.5  \n")
message(" ")
message("   . ,-\"-.   ,-\"-. ,-\"-.   ,-\"-. ,-\"-. ,-\"-. ,-\"-.   ,-\"-. ,-\"-.    ")
message("    X | | \\ / | | X | | \\ / | | X | | \\ / | | X | | \\ / | | X | | \\ /   ")
message("   / \\| | |X| | |/ \\| | |X| | |/ \\| | |X| | |/ \\| | |X| | |/ \\| | |X|   ")
message("      `-!-' `-!-\"   `-!-' `-!-'   `-!-' `-!-\"   `-!-' `-!-'   `-!-' `-     \n\n")

}