R/dist2full.R

Defines functions dist2full

Documented in dist2full

dist2full <-
function(dis)
{
#### dis is a vector of distances between n points
### returns a symmetric matrix of size n x n
     n <- attr(dis, "Size")
     full <- matrix(0, n, n)
     full[lower.tri(full)] <- dis
     full + t(full)
}

Try the kineticF package in your browser

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

kineticF documentation built on May 30, 2017, 5:47 a.m.