DB<-sort(rnorm(100, mean=100, sd=10))
# should be 0
unique(DB[findNN(DB,DB)] - DB)
q<-rnorm(100, mean=100)
idx.NN<-findNN(q,DB)
hist(DB[findNN(q,DB)] - q)
# definition of findNN holds
i<-1:5
findNN(3.5, i)
i<-1:6
findNN(3.5, i)Run the code above in your browser using DataLab