R/print.TCE.R

Defines functions print.TCE

Documented in print.TCE

print.TCE <-
function(x,...){
   cat("Transelliptical Correlation Estimation via Thresholding \n")
   cat("Method:", x$method, "\n")
	 if(x$cov.input) cat("Input: The Covariance Matrix\n")
	 if(!x$cov.input) cat("Input: The Data Matrix\n")
	
	 cat("Path length:",length(x$lambda),"\n")
	 cat("Sparsity level:",min(x$sparsity),"----->",max(x$sparsity),"\n")    
}

Try the smart package in your browser

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

smart documentation built on May 29, 2017, 8:58 p.m.