R/give.thresh.R

"give.thresh" <-
function(distxy){
    spanning <- ade4::mstree(distxy)
    return(max(neig2mat(spanning)*as.matrix(distxy)))
     }

Try the spacemakeR package in your browser

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

spacemakeR documentation built on May 2, 2019, 4:51 p.m.