R/triMat.R

In deldir: Delaunay Triangulation and Dirichlet (Voronoi) Tessellation

Defines functions triMat

Documented in triMat

triMat <- function(object){
    tl <- triang.list(object)
    vl <- lapply(tl,function(x){x[,"ptNum"]})
    vl <- lapply(vl,sort)
    tm <- matrix(unlist(vl),byrow=TRUE,ncol=3)
    return(tm[order(tm[,1]),])
}

Try the deldir package in your browser