R/misc.R

In MultiABEL: Multi-Trait Genome-Wide Association Analysis

.onAttach <- 
		function(lib, pkg, ...)
{
	pkgDescription <- packageDescription(pkg)
	pkgVersion <- pkgDescription$Version
	pkgDate <- pkgDescription$Date
	pkgName <- pkgDescription$Package
	pkgTitle <- pkgDescription$Title
	pkgAuthor <- pkgDescription$Author
	pkgMaintainer <- pkgDescription$Maintainer
	packageStartupMessage(paste("\n", pkgName, ": ", pkgTitle, sep = ""))
	packageStartupMessage(paste("Version ", pkgVersion, " (", pkgDate, ") installed", sep = ""))
	packageStartupMessage(paste("Author: ", pkgAuthor, sep = ""))
	packageStartupMessage(paste("Maintainer: ", pkgMaintainer, "\n", sep = ""))
	packageStartupMessage('Use citation("MultiABEL") to know how to cite this work.\n')
}

colVars <- function(x) colSums((t(t(x) - colMeans(x)))^2)/(nrow(x) - 1)

zscore <- function (x) qnorm((rank(x, na.last = "keep") - 0.5)/sum(!is.na(x)))