R/net.edges.R

Defines functions net.edges

Documented in net.edges

net.edges <-
function(theta)
{
	library(igraph)
	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)
}

Try the JGL package in your browser

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

JGL documentation built on May 29, 2017, 9:05 p.m.