R/distNode.r

Defines functions distNode

Documented in distNode

distNode<-function(pts,decdeg=FALSE){
    long<-length(pts[,1])
    mydeg<-cbind(x1=pts[1:(long-1),1],y1=pts[1:(long-1),2],x2=pts[2:long,1],y2=pts[2:long,2])
    distSeg(mydeg,decdeg=decdeg)
}

Try the pgirmess package in your browser

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

pgirmess documentation built on April 8, 2023, 1:12 a.m.