R/mergeFactorEdges.R

Defines functions mergeFactorEdges

Documented in mergeFactorEdges

mergeFactorEdges <-
function (Networks)
{
	Levels<-names(Networks)
	for (Level in Levels)
	{
		Edges<-Networks[[Level]]$Network$Edges[,c("node1","node2","Rho","P.Value")]
		Edges$Level<-Level
		if(Level==Levels[1]){MergedEdges<-Edges}
		if(Level!=Levels[1]){MergedEdges<-rbind(MergedEdges,Edges)}
	}
	return(MergedEdges)
}

Try the stringgaussnet package in your browser

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

stringgaussnet documentation built on May 29, 2017, 10:50 a.m.