# NOT RUN {
B<-c(1,0); C<-c(1/2,sqrt(3)/2);
Dist(B,C);
dist(rbind(B,C))
dist(rbind(as.vector(B),as.vector(C)))
Dist(B,B);
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)
dat.fr<-data.frame(b=B,c=C)
Dist(dat.fr,dat.fr)
Dist(dat.fr,cbind(B,C))
# }
Run the code above in your browser using DataLab