collapse_nodes_genes: Collapse nodes into a single representative nodes.
In dbottomly/HitWalker: Network-based variant prioriziation using functional assay scores

Description Usage Arguments Value Author(s) See Also Examples

Rename the nodes of a graphNEL object according to a character vector named by current node names with elements indicating the new node names. Duplicates are summarized to be a single node containing all edges and indicated by the maximum edge weights

1	collapse.nodes.genes(targ.graph, node.names)

`targ.graph`	A `graphNEL` object.
`node.names`	A named `character` vector.

A graphNEL object.

Daniel Bottomly

graphNEL

set.seed(123)
rand.graph <- randomGraph(V=sample(colors()[1:10]), M=1:4, p=.4)

node.vec <- nodes(rand.graph)
names(node.vec) <- node.vec

node.vec[sample.int(length(node.vec), 3)] <- "hello"

new.graph <- collapse.nodes.genes(rand.graph, node.vec)

edgeWeights(new.graph)["hello"]
edgeWeights(rand.graph)[names(node.vec)[node.vec == "hello"]]

if (require(Rgraphviz))
{
	par(mfcol=c(2,1))
	plot(rand.graph)
	plot(new.graph)
}