R/printHG.R

Defines functions printHG

Documented in printHG

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

	
	op=getOption("scipen")
	options(scipen=7)
	
	cat("HG Test\n")
	print(stat$hyper)
	cat("\n")
	options(scipen=op)
}

Try the BOG package in your browser

Any scripts or data that you put into this service are public.

BOG documentation built on May 2, 2019, 6:50 a.m.