R/net.edges.R

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)
}
patrickjdanaher/JGL-package documentation built on Jan. 11, 2024, 12:56 a.m.