R/onAttach.R

In dCovTS: Distance Covariance and Correlation for Time Series Analysis

.onAttach <- function(lib, pkg) {
	version <- read.dcf(file.path(lib, pkg, "DESCRIPTION"),"Version")
	packageStartupMessage(paste("\n",pkg["name"],": ",version,sep = ""))
	msg <-  paste(
		r"(               _ _ _ _                            _ _ _ _ _    _ _ _ _ _)",
		r"(       _      /   _ _ _\                         |_ _   _ _|  |  _ _ _ _/)",
		r"(      | |    /  /                                    | |      | |)",
		r"( _ _ _| |    | |           _ _ _ _    _      _       | |      | |_ _ _ _ )",
		r"(|  _ _  |    | |          |  _ _  |  \ \    / /      | |      |_ _ _ _  |)",
		r"(| |   | |    | |          | |   | |   \ \  / /       | |              | |)",
		r"(| |_ _| |_   \  \ _ _ _   | |_ _| |    \ \/ /        | |       _ _ _ _| |)",
		r"(|_ _ _ _ _|   \_ _ _ _ /  |_ _ _ _|     \__/         |_|      /_ _ _ _ _|)",
	sep="\n")
	packageStartupMessage(msg)
}