R/printRANK.R

Defines functions printRANK

Documented in printRANK

printRANK <-
function(x)
{
	cat("Call:\n")
	print(x$call)
	cat("\n")
	
    stat=x[[1]]
	
	op=getOption("scipen")
	options(scipen=7)
	
	cat("MW Test\n")
	print(stat$rank)
	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.