R/net.degree.R

In patrickjdanaher/JGL-package: Performs the Joint Graphical Lasso for Sparse Inverse Covariance Estimation on Multiple Classes

Defines functions net.degree

Documented in net.degree

net.degree <-
function(theta)
{
K = length(theta)
degree = list()
for(k in 1:K)
{
	degree[[k]] = (rowSums(abs(theta[[k]])>1e-5)-1)
}

return(degree)
}