Nothing
print.cpg.gc <-
function(x,...) {
cat("Using genomic control adjustment the top sites are:\n")
print(x$gc.results[order(x$gc.results$Adjust.P.value),][1:10,])
cat("\nGeneral info:\n")
print(x$gc.info)
cat("\n")
cat(x$gc.info$num.holm, "sites were found significant by the Holm method\n")
cat(x$gc.info$num.fdr, "sites were found significant by", x$gc.info$FDR.method,"method\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.