# NOT RUN {
x <- matrix(rnorm(20), ncol=4)
rownames(x) = paste("X", 1:nrow(x), sep=".")
y <- matrix(rnorm(12), ncol=4)
rownames(y) = paste("Y", 1:nrow(y), sep=".")
dist2(x, y)
dist2(x, y, "man")
data(milk)
dist2(milk[1:5,], milk[4:6,])
# }
Run the code above in your browser using DataLab