added kellyo 1NN R function

Can you think about how you might make this number dynamic?