##Largest nearest neighbor distances
infty<-10^20;
n<-1000;
tmp<-runif(2*n,0,1);
x<-matrix(tmp,n,2);
mdist1<-kronecker(x[,1],t(x[,1]),FUN="-");
mdist2<-kronecker(x[,2],t(x[,2]),FUN="-");
mdist<-mdist1*mdist1 + mdist2 * mdist2;
mdist<-sqrt(mdist);
diag(mdist)<-infty;
mindists<-apply(mdist,1,min);
cat("The largest NN distance is ", max(mindists),"\n");
plot(1,1,xlim=c(0,1),ylim=c(0,1),type="n");
for(i in 1:n)
{
points(x[i,1],x[i,2],pch=20);
}