R/print.GMS.R

In XMRF: Markov Random Fields for High-Throughput Genetics Data

print.GMS <-
function(x, ...)
{
	cat("Call:\n")
	print(x$call)
	
	cat(paste("\nOptimal lambda index: ", x$opt.index, "\n", sep=""))
	
	#cat(paste("\nLamba path (length: ", length(x$lambda.path), ")\n", sep=""))
	cat("\nLamba path : \n")
	print(x$lambda.path)
	
	cat("\nVariability :\n")
	print(signif(x$v, 4))
	
	cat("\nStability of learned edges:\n")
	str(x$D)
	
	cat("\nGraphs along the regularization path:\n")
	str(x$network)
}