R/get.Avg.Neighbor.Distance.R

Defines functions get.Avg.Neighbor.Distance

get.Avg.Neighbor.Distance <-
function(PositionData){
  dist.matrix <- as.matrix(dist(PositionData[,4:6]))
  off.diag <- dist.matrix[col(dist.matrix)==row(dist.matrix)+1]
  return(mean(off.diag))
}

Try the SpacePAC package in your browser

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

SpacePAC documentation built on Nov. 8, 2020, 5:29 p.m.