# \donttest{
B<-c(1,0); C<-c(1/2,sqrt(3)/2);
Dist(B,C);
dist(rbind(B,C))
x<-runif(10)
y<-runif(10)
Dist(x,y)
xm<-matrix(x,ncol=2)
ym<-matrix(y,ncol=2)
Dist(xm,ym)
dist(rbind(as.vector(xm),as.vector(ym)))
Dist(xm,xm)
# }
Run the code above in your browser using DataLab