print.mwwGST <-
function (obj) {
ans <- list()
if (length(obj) < 2) {
message("Nothing to print.")
return(invisible(NULL))
}
print(unclass(obj$call))
message(paste0("length of the original gene-set: ", obj$originalGeneSetCount))
message(paste0("length of the gene-set matched with the genes in the gene-list: ", obj$actualGeneSetCount))
message(paste0("length of the gene-list: ", obj$lengthOfRankedList))
message(paste0("NES = ", round(obj$nes, 4), ", prob.unbalance = ", round(obj$pu, 4), ", log2(prob.unbalance) = ", round(obj$log.pu, 4)))
message(paste0("p-value = ", format(obj$p.value, digits = 4), ", for the alternative hypothesis: ", obj$alternative))
invisible(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.