R/sowhat.R

In trnnick/TStools: Time Series Analysis Tools and Functions

sowhat <- function(...){
# Function returns ultimate answer to any question
    if(any(grepl("\\?",unlist(list(...))))){
        message("42");
    }

    cat("oooo+++o+ooossssso+++ooo+oo+++\n")
    cat("ooooo++oydNNNNmmdmdyoo+++++++/\n")
    cat("o+++oshmNNmNNmmmmmmmdds+++++//\n")
    cat("o+++sdmNmdhhyyyhmmmdddmo+/////\n")
    cat("+++odddmh+/:--::odddddmdyo////\n")
    cat("+/+dmmdms/:-----:odNmdNmmms+++\n")
    cat("+/oNNmmNyso+::oo+//yhhhdmNy+++\n")
    cat("+/smNNNmssss/:::----//+mmh////\n")
    cat("+//odNMdo/oo/::-----:smNmho+//\n")
    cat("+//++yNNy/+s+::::---:smNNNd+//\n")
    cat("/+/+++mNNy+o+//-..---/smmmy///\n")
    cat("/::/++hNNNdy+/-----...+mmmhs+/\n")
    cat("/:://+oydmNdoo+/:-...+dddmNNmm\n")
    cat("/+ohdmNNNNmNoys/....+ddmmmNNNN\n")
# Website used (for future): http://www.text-image.com/convert/ascii.html

    message("So what?");
}