R/lt2full.R

In bingat: Binary Graph Analysis Tools

Defines functions lt2full

Documented in lt2full

lt2full <-
function(x){	
	nodes <- getNumNodes(x, type="adjmatrixlt")
	
	y <- matrix(0, nodes, nodes)
	y[lower.tri(y)] <- x
	y <- y + t(y)
	
	return(as.vector(y))
}

Try the bingat package in your browser