R/printGSEA.R

In BOG: Bacterium and Virus Analysis of Orthologous Groups (BOG) is a Package for Identifying Differentially Regulated Genes in the Light of Gene Functions

Defines functions printGSEA

Documented in printGSEA

printGSEA <-
function(x)
{
	cat("Call:\n")
	print(x$call)
	cat("\n")
	
	stat=x[[1]]

	
	op=getOption("scipen")
	options(scipen=7)
	
	cat("GSEA Test\n")
	if(is.null(stat$gsea)) cat("Null GSEA")
	else if(!is.null(stat$gsea)){

		print(stat$gsea)
		cat("\n")
	}
	options(scipen=op)
}

Try the BOG package in your browser