R/print.heading.R

In G3C: Genetic Correlation Contrast test for Causality (GCC)

#' Heading Printing Function
#' 
#' This function is an auxiliary function for heading printing
#' 
#' @return Print out a heading
#' 
#' @author Xia Shen
#' 
#' 
print.heading <- function() {
	cat('*********************************************************************\n')
	cat('* Genetic Correlation heterogeneity test for Causality (GCC)\n')
	cat('* Version 1.1\n')
	cat('* (C) 2017 Xia Shen\n')
	cat('* Usher Institute of Univ. Edinburgh / MEB of Karolinska Institutet\n')
	cat('* GNU General Public License v3\n')
	cat('*********************************************************************\n\n')
}