# NOT RUN {
## generate two matrices with 50 and 100 samples
x <- matrix(rnorm(50*10, mean=0, sd=1), ncol=10)
y <- matrix(rnorm(100*10, mean=1, sd=2), ncol=10)
dist <- euclidean_distance(x, y)
## compare with the standard dist function
dist2 <- as.matrix(dist(rbind(x, y)))[1:50, 51:150]
plot(dist, dist2)
# }
Run the code above in your browser using DataLab