R/print.scalreg.R

In scalreg: Scaled Sparse Linear Regression

Defines functions print.scalreg

Documented in print.scalreg

print.scalreg <-
function(x,...)
{
	cat("Call:\n")
	print(x$call)

	if(x$type=="regression"){
		cat("\nEstimated variance:\n")
		print(x$hsigma)
		cat("\nCoefficients:\n")
		print(x$coefficients)
	}
	
	if(x$type=="precision matrix"){
		cat("\nDiagonal:\n")
		print(x$hsigma)
	}
}

Try the scalreg package in your browser