Calculate Euclidean distance between groups of ecological point data

euDist.R

# Function to calculate Euclidean distance between n sets of Principal Components
# Ensure all data are in data.matrix format 
#
# x = data matrix 1
# y = data matrix 2
# d = distance method (pdist = unequal sets; dist = equal sets)
# e.g.
# distance <- euDist(dat1, dat2, dist = "dist")
# mean(distance)
# sd(distance)
euDist <- function(x, y, d = "pdist"){
  if(d == "pdist"){
  df <- pdist(x, y, indices.A = NULL, indices.B = NULL)
  }
  else{ if(d == "dist"){
    df <- dist(x, y, method = "euclidean")
  }}
  df <- unlist(data.frame(as.matrix(df)))
}