R/points.distance.r

In rogiersbart/rtoolz: A collection of useful functions

points.distance <- function(x1,y1,x2,y2)
{
  return( sqrt( (x2-x1)^2 + (y2-y1)^2 ))
}
points.distance.3d <- function(x1,y1,z1,x2,y2,z2,verticalExaggeration=1)
{
  z1 <- verticalExaggeration * z1  
  z2 <- verticalExaggeration * z2
  return( sqrt( (x2-x1)^2 + (y2-y1)^2 + (z2-z1)^2 ))
}
# test <- rnorm(5)
# test2 <- rnorm(5)
# system.time(
#   for(i in 1:10000) dist(rbind(test,test2))
# )
# system.time(
#   for(i in 1:10000) sqrt(sum((test-test2)^2))
# )