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))
# )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.