Generate Euclidean distance matrix from a point to its neighboring points in R



#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!!

Comments

Popular posts from this blog

Prevent WPF Global Keyboard Hook from stops working after hitting keys a while C# .NET

Generate ArcGIS Token By URL Request From ArcGIS Portal, Federated Environment , ESRI JS API and Angular snippets

Solution: IntelliJ not recognizing a particular file correctly, instead its stuck as a text file