R/net.edges.R

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

Defines functions net.edges

Documented in net.edges

net.edges <-
function(theta)
{
	adj = make.adj.matrix(theta,separate=TRUE)
	K = length(theta)

	edges = list()
	for(k in 1:K)
	{
		diag(adj[[k]])=0
		gadj = graph.adjacency(adj[[k]],mode="upper")
		edges[[k]] = E(gadj)
	}
	return(edges)
}