#Generate Euclidean distance matrix from a point to its neighboring points in R
#Load sp library
library(sp)
#Create a 2D metrix of X & Y coordinates of the neighboring points
neighbours_point <- matrix(c(5, 6,3,5,4,8,7, 10, 60, 60,11,12), ncol=2)
neighbours_point
[,1] [,2]
[1,] 5 7
[2,] 6 10
[3,] 3 60
[4,] 5 60
[5,] 4 11
[6,] 8 12
#Create a point vector with x and y coordinates from which distance should be calculated
refrence_point<-c(2,3)
refrence_point
[1] 2 3
#Compute the distance matrix
distmat <- spDistsN1(neighbours_point,refrence_point, longlat=FALSE)
distmat
[1] 5.000000 8.062258 57.008771 57.078893 8.246211 10.816654
Enjoy!!

0 comments :
Post a Comment