Nothing
#' 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')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.