R/dist2full.S

"dist2full" <- 
function(dis)
{
	n <- attr(dis, "Size")
	full <- matrix(0, n, n)
	full[lower.tri(full)] <- dis
	full + t(full)
}
harrysouthworth/kohonen documentation built on May 17, 2019, 3:03 p.m.