###10 3-D coordinates
x <- matrix(rnorm(3*10), nrow = 10)
###a 10x10 adjacency matrix returned for 'net'
###Distrance larger than 1 is considerded as connected
net<-Grid.Adjmatrix.Transfer(grid=x, euclidean.dist=1)
Run the code above in your browser using DataLab