R/r.order.link.R

`r.order.link` <-
function (nrow.link, link, coords) 
{
    for (i in 1:nrow.link) {
        if (link[i, 2] != 0) {
            if (coords[link[i, 3], 3] < coords[link[i, 2], 3]) {
                link[i, 2:3] <- c(link[i, 3], link[i, 2])
            }
        }
    }
    return(link)
}

Try the AEM package in your browser

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

AEM documentation built on May 31, 2017, 3:31 a.m.